Использование процедуры в другой процедуре (хм .. или метода?)...??

[newprog12]

procedure TForm1.About1Click(Sender: TObject);
begin
ShowMessage('Text');
end;

procedure TForm1.About2Click(Sender: TObject);
begin
TForm1.ExitAltX1Click;
end;

Можно ли при нажатии на About2 срабатывал код из About1???
Как именно такое можно использовать. Я так понимаю ошибка в выделенной строке? это ведь ООП..?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#" (а не значка #).
Только...
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Вы не знали? Почитайте правила раздела...
Модератор

[Пепел Феникса]

если в процедуре(метод на событие)
Sender не используется то пишем Self.ExitAltX1Click(nil);
жирное можно убрать

[spamer]

А ведь можно еще проще, просто в Инспекторе объектов на нужном событии в выпадающем списке выбрать нужный метод.

[W0LF]

А не легче просто нажать на другую кнопку?

Form1.About1.Click

[newprog12]

Вот правильно работает :-)

procedure TForm1.About1Click(Sender: TObject);
begin
ShowMessage('Text');
end;

procedure TForm1.About2Click(Sender: TObject);
begin
About1Click(nil);
end;