Запуск процедуры из процедуры с дополнением

[1sal1]

Здравствуйте.
Столкнулся с такой проблемой.
Есть button1 и процедура button1click, так же на форме обитает button2 по нажатию на которую должна выполняться процедура button1.click и еще пара действий.
по ходу программы такая ситуация возникает очень много раз, а писать избыточный код не хочется, да и при последующей доработки софтины неудобства возникнут. Возможно ли реализовать такое?
P.S А возможно ли написать процедуры без привязки к контролам и потом контролу давать только ссылку на запуск той или иной процедуры. так на мой взгляд будет удобней работать в дальнейшем. (дизайн отдельно, код отдельно).
Заранее спасибо.

[Ntlegend]

Есть button1 и процедура button1click, так же на форме обитает button2 по нажатию на которую должна выполняться процедура button1.click и еще пара действий

назначь для button2 события нажатия тоже что и для button1
или в button2click вызови button1click(Sender); и дальше другие действия пропиши..

P.S А возможно ли написать процедуры без привязки к контролам и потом контролу давать только ссылку на запуск той или иной процедуры.

в рвзделе private добавляем

procedure MyProc(Sender:TObject);

жмем Ctrl+Shift+C
в появившейся процедуре пишем нужный код..
чтобы обратиться к свойствам элемента вызвавшего выполнение (к примеру возьму TButton) пишем так:

TButton(Sender).нужное_свойство

и тогда в button1click остается написать тока MyProc(Sender); и готово..

[s.Creator]

можно вызвать так:

button1click(nil);
button1click(Self);
button1click(button2);

один обработчик можно привязывать к нескольким компонентам
и если уберешь привязку обработчика к компоненту он всеравно из кода не исчезнет и ты можешь его вызывать вручную
(почитайте немного литературы)

[evg_m]

procedure tform1.onbutton2Click(sender: TObject);
begin
......
button1.click; //программное нажатие кнопки
......
end;