Eine Procedur für viele Buttons, wie? (gelöst)

[SimonRap]

Na toll ich muss den Artikel nochma schreiben, I-Net hat gespackt
Also:
Ich hab ne bestimmte Anzahl von Buttons und (der Code stimmt nicht, aber zur Verdeutlichung) jedesmal wenn auf einen Button geklickt wird, soll dessen Länge verdoppelt werden...
Also müsste ich:

Delphi-Quellcode:

Procedure Btn1Click;
Begin
  bla; 
end;
Procedure Btn2Click;
Begin
  bla; 
end;
Procedure Btn3Click;
Begin
  bla; 
end;
//und so ewig weiter  machen

Jetzt frage ich mich:
Könnte man nicht mit der schon mitgelieferten Sender VARiable das irgwndwie dynamisch machen?
also:

Delphi-Quellcode:

procedure btn1Click(sender:Object);
begin
  sender.width:=sender.width*2;
end;

So was is der Art???

Thx schonmal
MfG simon