es geht auch einfacher wenn alles TButtons sind:
Delphi-Quellcode:
procedure TForm1.B1Click(Sender: TObject);
begin
if Sender = BClear then
Edit1.Text := ''
else
Edit1.Text := Edit1.Text + TButton(Sender).Caption;
end;
und dann natürlich allen buttons diese procedure zuweisen.