как повторно вызвать процедуру?

[iiunbreakableii]

Привет всем!
Из названия вопроса, думаю, сложно понять, что именно мне нужно
Попытаюсь расписать поподробнее:
на фоме есть несколько кнопок, связанных с моими процедурами, и radiogrpoup.
Необходимо после клика на элемент из radiogroup выполнить процедуру, которая была вызвана последней.
У меня есть один вариант, но он мне как-то не по душе:

...
type
  TMainForm = class(TForm)
    procedure myproc1;
    procedure myproc2;
    procedure myproc3;
...
    procedure RedoLastProcedure(Code:integer);
    procedure RadioGroup1Click(Sender: TObject);
...
var
  LastProcedureCode:integer;
...
procedure TMainForm.myproc1;
begin
  LastProcedureCode:=0;
  ...
end;

procedure TMainForm.myproc2;
begin
  LastProcedureCode:=1;
  ...
end;

procedure TMainForm.myproc3;
begin
  LastProcedureCode:=2;
  ...
end;
...
procedure TMainForm.RedoLastProcedure(Code: integer);
begin
  case Code of
    0: myproc1;
    1: myproc2;
    2: myproc3;
    ...
  end;
...
end;

procedure TMainForm.RadioGroup1Click(Sender: TObject);
begin
  RedoLastProcedure(LastProcedureCode);
end;

Есть варианты получше (очень надеюсь)?

[ex.cluz]

По-моему и так хорошо (я когда суть вопроса прочитал, сразу же подумал о некой глобальной переменной, в которую будет производиться запись номера последней использованной процедуры, а потом смотрю - у вас в коде тоже самое)!
Чем вас собственный вариант не устраивает?

[iiunbreakableii]

даже и не знаю, может тем, что процедура RedoLastProcedure может разростись. я надеялся что можно это дело упростить, люблю оптимизировать

[Stilet]

Как вариант:

var
  LastProcedureCode:procedure;
...
procedure TMainForm.myproc3;
begin
  LastProcedureCode;
  ...
  LastProcedureCode:=myproc3;
end;
...

что процедура RedoLastProcedure может разростись

Задача какая?

[iiunbreakableii]

всем спасибо, особенно Stilet!
Можно сказать что всё упростилось до одной строки

procedure TMainForm.myproc3;
begin
  RadioGroup1.OnClick:=myproc3;
  ...
end;

Вопрос закрыт : )

[Stilet]

Можно сказать что всё упростилось до одной строки

ох не нравится мне такое закрытие...

Вопрос закрыт : )

Ну и славненько.

[iiunbreakableii]

а чем именно не нравится, если не секрет?

[Stilet]

А тем что ты постоянно перецепляешь обработчики... Так и пардонте, фаркоп, поломается... (шутка)
т.е. я хочу сказать что ты сам потом можешь запутаться в том что когда и где у тебя вызывается. Будешь грешить на одну процедуру, а она оказывается в этот момент времени вообще не задействована.

[iiunbreakableii]

буду предельно внимателен, сенсей