Переменная локальная процедура

[Kronos913]

Вопрос такой: как переменной типа procedure присвоить локальную процедуру?

Для чего это надо:

Внутри цикла на более чем 1000 итераций нужно каждый раз спрашивать значение boolean, который не меняется в ходе выполнения цикла
И подумал над тем, чтобы вынести действия после If и else в разные процедуры и вызывать их через переменную типа procedure

[BDA]

Например:

procedure TrueP();
begin
  ShowMessage('True');
end;

procedure FalseP();
begin
  ShowMessage('False');
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  p: procedure ;
begin
  if True then
    p := TrueP
  else
    p:= FalseP;
  p();
end;

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

for i := 1 to 1000 do
  if stat then
    // work 1
  else
    // work 2

if stat then
  for i := 1 to 1000 do
    // work 1
else
  for i := 1 to 1000 do
    // work 2