[Mailchik]

и чтобы работала с IsDone

Код:

procedure CancelButtonOnClick(Sender: TObject); 
begin   
SuspendProc;   
MyExitMessage();   
if MyExit.ShowModal() = mryes then  ISDoneCancel:=1;   
ResumeProc; 
end; 
MyCancelButton.OnClick := @CancelButtonOnClick;

Для кода, который выложил товарищ Johny777 выше.