procedure Quit1Click(Sender: TObject);
407 procedure TPSMainForm.Quit1Click(Sender: TObject); 408 begin 409 Close; 410 end;