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

[demiancz]

Есть две кнопки. Как сделать что бы по нажатию на вторую произошла запись в переменную, а затем из этой переменной произошел запуск процедуры.
Такой код не устраивает:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Клик1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Click;
end;

Нужно что то типа такого

s:='Form1.'+'Button1'+'.Click';

В переменную вписали что нужно вызывать. А вот как теперь запустить эту переменную s?
Или подскажите как подобное можно реализовать?

[s-andriano]

Исполняемый код располагается в сегменте кода, а переменные - в сегменте данных. Сегмент данных не выполняется, а потому запустить что либо из переменной в принципе невозможно.

При необходимости запускать выбранную процедуру или функцию создается тип такой процедуры/функции, описывается соответствующая переменная и в эту переменную записывается адрес нужной функции. После этого записанную функцию можно вызвать по имени переменной.

[Человек_Борща]

Но можно так =)

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

procedure TForm1.Button2Click(Sender: TObject);
var
  BtnClick:TNotifyEvent;  //Prototype of procedure(Sender:TObject);
begin
  BtnClick:=Button1Click;
  BtnClick(self);
end;

[eval]

if s='Form1.'+'Button1'+'.Click' then
Button1.Click;

[eval]

а ваще если есть ртти то можно