Asignar nombre a un fichero a traves de un edit

pepecharlie67 · #4 27-12-2005

Veras tengo esto:

Código Delphi [-]  procedure TForm1.Button2Click(Sender: TObject);
Var
  MiFichero : TIniFile;
  Edad : Integer;
begin
  Fichero:=Edit3.Text;
  Edad := StrToInt (Edit2.Text);
  MiFichero := TiniFile.Create (Fichero);
  MiFichero.WriteString ('Usuario','Nombre',Edit1.Text);
  MiFichero.WriteInteger ('Usuario','Edad',Edad);
  MiFichero.WriteString ('Usuario','es',RichEdit1.Text);
  MiFichero.Free;
end;

y Fichero es del tipo String;

¿Porque no me guarda nada?Gracias