Quellcode kürzen... (vereinfachen), aber wie ?

[shareholder]

ich mal nen einfaches beispiel :

Delphi-Quellcode:

procedure NameAufruf (dername : String);
begin
  ShowMessage('" ' + dername + ' " ist ja nen toller Name :)');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  NameAufruf('Maria');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NameAufruf('Tom');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  NameAufruf('Silvia');
end;
...

mal angenommen, ich habe 100 kleine buttons... wie kann ich das vereinfachen
und wie bekomme ich (mit nur 1-2 codezeilen), bspw. die eigenschaften : breite, höhe und font auf
alle buttons übertragen ?

helft mir bitte, is bestimmt sehr sehr einfach
aber ich komme nicht drauf

thanx