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.