procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  if whichbutton = 1 then
  begin
    Button1.Click;
    whichbutton := 2;
  end
  else
  begin
    Button2.Click;
    whichbutton := 1;
  end;
  Timer1.Enabled := True;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Add('Button2 Clicked');
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Button1 Clicked');
end;