Windows Fenster mit Ok und abbrechen?

[Mystic]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // filename = Name der gerade geöffeneten Datei
  case Application.MessageBox('Änderungen an "' + filename + '" speichern?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of
    IDYES: begin
             CanClose := True;
             // Hier Datei speichern
           end;
    IDNO:  begin
             CanClose := True;
             // Hier Datei nicht speichern
           end;
    else   CanClose := False; // Abbrechen gedrückt, Programm wird nicht beendet
  end;
end;

edit: [/delphi] vergessen.