Возможно это подойдет, сам не пробовал...
///////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
P1: TProcedure;
begin
i:=5;
if i = 5 then begin
@P1 := @Button2.OnKeyDown;
P1;
end;
end;
|