[lmikle]

Код:

procedure ok2Click(Sender : TObject);
begin
  // Выполняем код кнопки ok1
  ok1Click(Sender);

  // Выполняем код кнопки ok2
  ...
end;