[Taddy23]

Добрый день,

Помогите пожалуйста -
вот есть пустая форма. Есть две кнопки ok1 и ok2 на ней.
Пусть по нажатию ok1 выполняется
1)procedure 1 - описанная в корне программы
2)procedure 2 - описанная внутри обработчика ok1
3) какой то здоровый кусок текста с арифметикой например

Вопрос -
как сделать что бы по нажатию кнопки ок2 выполнялось -

1)какие то свои действия(неважно какие)
2)всё то что выполняется по нажатию ок1. (сразу возникает решение скопировать весь код из обработчика ок1, но хочется покороче как то решить задачу одной строчкой(процедуры описанные в разных местах ввел в ок1 что бы понять как место их описания влияет))

Спасибо

[lmikle]

Код:

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

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