MessageBox w edytorze tekstu

(edytor tekstu) Mam taki kod:

Application.MessageBox('Czy chcesz zakonczyc prace z programem?',
'Test',MB_YesNoCancel + MB_IconQuestion);

Co muszę zrobić aby po kliknięciu na tak program włączył okno z zapisywaniem pliku , na nie zamkną program bez zapisywania

 case MessageBox(twoje parametery) of
 mrYes: ;
 mrNo: ;
 mrCancel: ; 
 end;

Mam nadzieje że wszystko jasne jak nie wiesz/nie rozumiesz to pisz

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('Czy chcesz naprawdę zakończy dzialanie tej aplikacji?','Parlez vous français?',MB_ICONQUESTION+MB_YESNO)=IDYES then
begin
Application.Terminate;
end
else
begin
CanClose:=false;
end;
end;

prezes_m napisał(a)

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('Czy chcesz naprawdę zakończy dzialanie tej aplikacji?','Parlez vous français?',MB_ICONQUESTION+MB_YESNO)=IDYES then
begin
Application.Terminate;
end
else
begin
CanClose:=false;
end;
end;

a jak to Application.Terminate; się tam znalazło? Zanim zaczniesz dawać rady innym sam poszerz swoją wiedzę

prezes_m napisał(a)

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('Czy chcesz naprawdę zakończy dzialanie tej aplikacji?','Parlez vous français?',MB_ICONQUESTION+MB_YESNO)=IDYES then
begin
Application.Terminate;
end
else
begin
CanClose:=false;
end;
end;

Przekopiawałeś to ze swojego programu... 8-O [sciana]