Wie kein PopupMenu zuweisen?

[AlexII]

Hallo,

hab da ein Problemchen wo ich nicht weiter kommen. Und zwar ich weise während der Laufzeit einer Komponente wie folgt ein PopupMenu zu:

Delphi-Quellcode:

procedure TForm1.Label3ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
if Label3.Caption <> '' then Label3.PopupMenu := PopupMenu1
else Label3.PopupMenu := ??? (hier also kein Menü zuweisen)
end;

Nun wenn Label3 kein Text bzw. Caption hat, soll auch kein Menü erscheinen, aber ich bekomme das aber irgendwie nicht hin.

Danke!