..... TForm1.OnButton1Click(Sender: TObject); .....
procedure TForm1.OnButton1Click(Sender: TObject);