What you are doing wrong is setting the form to mrOK  but testing for 
mrNone in order to close the form.

At 11:31 AM 9/2/2007, you wrote:
>procedure TfmCleanUpMain.btnOKClick(Sender: TObject);
>begin
>    if fmprogress.showmodal <> mrNone then
>    close;
>end;

Ralph D. Wilson II
Systems Analyst

Home: (210) 497-2643
Cell:    (210) 387-7744
Fax:    (210) 497-5726

[EMAIL PROTECTED]
[EMAIL PROTECTED]


_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi

Reply via email to