80分回答个小问题，看看值玛？

Question

procedure aaa(var s1:string;var s2:string);改为
procedure TForm1.aaa(var s1:string;var s2:string);

Answer 1

aaa为TForm1的成员过程,在TForm1中声明后,可按Ctrl+Shift+C,
在Delphi会自完成此过程的定义部分的框架,你只要在中间加代码就行了,且不会出这种错误码

Answer 2

 好象是容易，在 aaa 前面加上 TFORM1即可。 嘻嘻，拿分来 ！

Answer 3

procedure aaa(var s1:string;var s2:string)好象可以移到end后面
s2:=s1(少；)如果还有错误.....
edit2.Text :=bb;
不会用breakpoint可以这样调试
showmessage(bb);