[[enecumene]]

El problema está en estas dos líneas:

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;

Ahora, para que te podamos ayudarte, deberías dar un poco más de información, la razón del uso de este código, etc, etc.

Saludos.