procedure CmdQuitClick(Sender: TObject);
391 procedure TPSMainForm.CmdQuitClick(Sender: TObject); 392 begin 393 Close; 394 end;