怎么实现代码共享的有关问题，多谢大家了！

如何实现代码共享的问题，谢谢大家了！！！
打个比方，我有两个事件

事件一的代码
edit1.text:='aaaa';
edit2.text:='bbbb';
edit3.text:='cccc';

事件二的代码
edit1.text:='aaaa';
edit2.text:='bbbb';

那我要怎么样才能让事件二直接引用到事件一的代码，而不需要重新写过呢？？
麻烦大家帮帮忙，希望帮忙写出个最简单的例子来

先谢谢了..........


注意：是部分代码共享 而不是全部的代码
并不是用 Button2.OnClick := Form1.Button1Click;


[解决办法]
做个过程procedure 把要共享的代码写进去

procedure TForm1.yourname1;
begin
edit1.text:= 'aaaa '; 
edit2.text:= 'bbbb ';
end;

事件一的代码 
yourname1; 
edit3.text:= 'cccc ';

事件二的代码 
yourname1; 
 
[解决办法]
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;