Как проверить что параметр процедуры является nil, если параметр процедура

[Jiro]

Ну грубо говря такой пример, как проверить что в процедуре
TestProc параметр Proc является nil или не является nil (само собой без передачи дополнительного параметра где это символизируется)

procedure TForm1.NotyfReport(Sender: TObject; Msg: string; Code: Integer);
begin
  Memo3.Lines.Add( '(' + Code.ToString + ') ' + Msg)
 
end;
 
type
  TCallbackProck = procedure(v: Integer; var a: boolean);
 
function TestProc(s: string; Proc: TCallbackProck): Integer;
var a: Boolean;
    v: Integer;
    I: Integer;
begin
 Randomize;
  for I := 0 to 100 do
  begin
    v := Random(99);
    Proc(v, a);
    if a then Break;
 
  end;
 
  v := 100;
 
end;
 
procedure CallbackProck(v: Integer; var a: boolean);
begin
   Form1.Memo2.Lines.Add(Form1.Memo2.Lines.Count.ToString + ': ' + v.ToString );
   a := v > 70;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  TestProc('s', CallbackProck);
  TestProc('s', nil);
end;

[MBo]

Assigned