[whitehustle]

Сообщение от EvilRussian

Тогда радуйся!
Поздравляю!

З.Ы. И скромно так: поста-а-а-авь плюсик ^_^ (весы справа сверху)

Сообщение от kalinochkind

Лучше так:

Код:

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

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

попробую так тоже)