Assigned(P) corresponds to the test
P<> nil for a pointer variable,and @P
<> nil for a procedural variable.

因此，如果P是普通指针，则P零和分配(P)完全相同。另一方面，如果P是一些程序，那么

var
  p: TNotifyEvent = nil;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if Assigned(p) then
    p(Self);
end;

将会一直工作

procedure TForm1.FormCreate(Sender: TObject);
begin
  if @p <> nil then
    p(Self);
end;

但

procedure TForm1.FormCreate(Sender: TObject);
begin
  if p <> nil then
    p(Self);
end;

甚至不会编译。因此，结论是P – nil和Assigned(P)完全相同，每次都工作！