出了怪了！copy函数错误！！！(100)

最近真是见了鬼了，使用了数百次的copy函数，一句简单代码，在编译时就是通不过，错误提示Too many actual parameters，意思好像是实参过多。1、我建立其它窗体测试，没有问题，但原代码拷贝过来，又是错误；2、怀疑delphi7坏了，下载一个miniD7，错误依旧。3、怀疑系统坏了，重装系统，错误依旧。4、怀疑XP系统坏了，将代码传到另一个机子，问题依旧！请哪位高人指点。procedure TForm1.Button6Click(Sender: TObject);begin //label2.Caption:=Copy('asdfgh',1,2)
a1:=Copy('asdfgh',1,2)
//a1:=copy(MyStr,awz+1,acd-awz)
//label3.Caption:=inttostr(b1);end;错误提示：[Error] Unit1.pas(248): Too many actual parameters[Error] Unit1.pas(248): Too many actual parameters

加上system.copy试下看看，有时候用了with 语句后，经常会出错。

谢谢！

或者是uses的单元有问题，前两年碰到过一次，只要将uses的单元换了一下先后顺序就可以了。

看是不是前面重新定义了copy函数