如何实现代码共享的问题，谢谢大家了！！！

Question

打个比方，我有两个事件事件一的代码
edit1.text:='aaaa';
edit2.text:='bbbb';
edit3.text:='cccc';事件二的代码
edit1.text:='aaaa';
edit2.text:='bbbb';那我要怎么样才能让事件二直接引用到事件一的代码，而不需要重新写过呢？？
麻烦大家帮帮忙，希望帮忙写出个最简单的例子来先谢谢了..........
注意：是部分代码共享  而不是全部的代码
并不是用  Button2.OnClick := Form1.Button1Click;

Answer 1

做个过程procedure 把要共享的代码写进去procedure TForm1.yourname1;
begin
  edit1.text:= 'aaaa '; 
  edit2.text:= 'bbbb ';
end;事件一的代码 
yourname1; 
edit3.text:= 'cccc ';事件二的代码 
yourname1; 
 

Answer 2

将你需要重复使用的代码写成一个过程，然后调用该过程，如
procedure a;
begin
  edit1.text:='aaaa';
  edit2.text:='bbbb';
end;
然后调用a；别忘了在前面声明一下。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := 'aaaa ';
  Edit2.Text := 'bbbb ';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1Click(Button1);
  Edit3.Text:= 'cccc ';
end;