1，copy是关键字，换其他名字定义这个过程，定义过程先要在private 或 public 后面声明一下，例如：
private
{ Private declarations }
procedure copy(source,destination:string );
2.少了一个end; 过程开始begin 对应一个end;,try except后面要对应一个end;单元尾部要对应一个end.（注意end后的符号）
procedure TForm1.copy(source,destination:string );
没有声明
可以加到 private 或 public 里去
private
{ Private declarations }
public
procedure copy(source,destination:string );
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024