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