Problema con una funcion

[Alliance]

Hola, esta funcion la saque de un programa editor de texto que vi por internet, el problema es que hay un error en el codigo y no se como solucionarlo.

Código Delphi [-]
function TForm1.Filetext: Boolean;
begin
   Result := true;
   if MemoEditor.Modified then
     begin
       case MessageDlg('Quieres guardar los cambios',
       mtInformation, mbYesNoCancel, 0) of
       mrYes: if SaveDialog.Execute then
       begin
         FileName := SaveDialog.FileName;
         MemoEditor.Lines.SaveToFile(FileName);
      end else
        Result := false;
        mrNo: Result := true;
        mrCancel: Result := false;
       end;
   end;
end;

Como ven en el codigo, cuando tenemos un archivo editado y modificado, cuando intentamos salir de el programa nos dice que si queremos guardar los cambios, si aceptamos para que se cierre el programa guadando los cambios.

Pues este codigo, lo que hace es abrir el dialogo de guardar, en vez de guardar sin ejecutarlo, asi silenciosamente, se cierra el programa y guada los cambios echos en el archivo de texto.

este codigo no es mio, alguien sabe como solucionarlo.