Julio Novaes

procedure TForm1.Button1Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.FormActivate(Sender: TObject); begin Button1.Click; end;