[PhoeniX]

ужс, бррр... за такой код в приличном обществе линейкой по рукам бьют...
Числа стоило бы записать вот так:

Код:

procedure TForm1.SpeedButtonNumberClick(Sender: TObject);
begin
 edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption;
end;