Para Grabarlo:
Código Delphi
[-]
var
TS:TStringList;
begin
try
TS := TStringList.Create();
TS.Add(Edit1.Text);
TS.SaveToFile('C:\temp\Edit_Guardado.txt');
finally
FreeAndNil(TS);
end;
Para recuperarlo:
Código Delphi
[-]
var
TS:TStringList;
begin
try
TS := TStringList.Create();
TS.LoadFromFile('C:\temp\Edit_Guardado.txt');
if (TS[0] <> '') then begin
Edit1.Text := TS[0];
end;
finally
FreeAndNil(TS);
end;
Es un ejemplo simple, pruébalo y adaptalo como necesites.
Te lo he puesto de memoria, así que el posible que haya algun error de sisntáxis; Ya dirás...
Un saludo.