[Karsh]

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

Если точно то мне надо по окончанию времени нажималась кнопка

На счет этого не понял. Вам нужно, чтобы после нажатия на 2 кнопку была задержка на нек. время, после кот. нажималась бы кнопка 1?

А "нажимать" кнопку можно вызвав ее процедуру:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('ok');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1Click(Self);
end;

или эмулировать нажатие на нее мышки:

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button1.Perform(WM_LBUTTONDOWN, 0, 0);
  Button1.Perform(WM_LBUTTONUP, 0, 0);
end;