copy,leftstr,pos哪里效率更高

如题, 这三个函数谁的效率更高.比如下面:
我卡一个字符串的前置码.
Str := '1234567';
if copy(Str, 1, 4) = '1234' then
  ShowMessage('OK');if LeftStr(Str, 4) = '1234' then
  ShowMessage('OK');if pos('1234',Str) > 0 then
  ShowMessage('OK');这三种方式谁的效率更高? 或者有其他效率更好的方式.
麻烦哪位告诉我下,  非常感谢!