Source position: ufrmcompcreate.pas line 59
procedure TFrmCompCreate.PopupMenu1Close(
Sender: TObject
);