Problema con una funcion

[Neeruu]

Hola a todos

Código Delphi [-]
function TForm1.Filetext: Boolean;
var Filemane:String
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);
            MemoEditor.Lines.SaveToFile(SaveDialog.FileName);      
                             end else Result := false;        
                mrNo: Result := true;        
                mrCancel: Result := false;       
         end;   
     end;
end;

Para mi el problema esta de donde sale la variable 'Filemane', o la agregas o
puedes poner como lo pongo en el ejemplo(No probe si esta bien, pero deberia)

Cualquier cosa avisa!!!

Saluda Atte Neeruu!!!