如何减少此段程序代码？(50分)

在一窗体有二个label，一个可连到相关主页，一个可发E-mail.它们都有一个onmousdown和onmouseup事件，分别控制鼠标按下和弹起时颜色变化.
问：如何使这一段代码能让两个标签共享？
Email:caolg@etang.com

OnMouseDown指向同一个函数，函数中用:
(sender as TLabel).Color := clBlue;
代替label1.Color := clBlue;
OnMouseup也一样

procedure mousedown(sender:Tobject);
var cap:string;
begin
(sender as Tlabel).font.color:=....;
cap:=(sender as tlabel).caption;
if pos('@',cap)<>0 then
winexec(pchar('start mailto:'+cap),sw_normal)
else
winexec(pchar('start '+cap),sw_normal);
end;

procedure mouseup(sender:Tobject);
begin
(sender as Tlabel).font.color:=....;
end;

可以给分了

接受答案了.