[kalinochkind]

Лучше так:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+tcontrol(sender).caption;
end;

И на всех кнопках делаешь обработчик onclick - BitBtn1Click