Zatvaranje forme

Kako spriječiti već pokrenuto zatvaranje forme?
Problem:
na formi radim kalkulacije. Da bi bilo sve OK korisnik mora pritisnuti gumb "UPIŠI" prije zatvaranja forme. Ako nije pritsnut, pitam ga: "O'š ti to ili ne?", nudim mu: Yes, No, Cancel, gdje bi na Cancel trebalo spriječiti zatvaranje forme, Yes upiše, No obriše upisane podatke.

Jednostavno bi bilo onemogučiti gumb na formi (X) i postaviti moj gumb "KRAJ" koji bi to sve provjeravao, ali bih htio zbog radi jednoobraznosti ostaviti X-ić na formi.

Predpostavljam da bi trebalo nešto odraditi u proceduri "OnClose", ali što?

Ima li kakvih ideja? Hvala unaprijed.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// Ako nije pritsnut, pitam ga: "O'š ti to ili ne?", nudim mu: Yes, No, Cancel, gdje bi na Cancel trebalo spriječiti zatvaranje forme, Yes upiše, No obriše upisane podatke.

if O'š = True then
begin
// upisi podatke
CanClose:=True
end else begin
// obrisi podatke
CanClose:=False;
end;
end;

poz

Zahvaljujem na brzini. To sam trebao.