Åbne dat-fil

Hejsa.

Jeg har brugt følgende kode for at åbne nogle bestemt linier fra en DAT fil ind i nogle edit filer:

var
  L : TStringList;

begin
  L := TStringList.Create;
  L.LoadFromFile('Data1.DAT');
  Edit4.Text := L[0];
  Edit1.Text := L[1];
  Edit3.Text := L[2];
  Edit5.Text := L[3];
  Edit7.Text := L[4];
  Edit8.Text := L[5];
  Edit9.Text := L[6];
  Edit10.Text := L[7];
  FreeAndNil(L);
end;

efter at tallene i filen er blevet åbnet, bliver der lagt noget mere til hvorefter de nye tal skal gemmes i de linier hvor de gamle stod.
jeg har her prøvet:

var
  L : TStringList;
begin
  L := TStringList.Create;
  L.savetofile('Data1.DAT');
  L[0]:= Edit4.Text ;
  L[1]:= Edit1.Text ;
  L[2]:= Edit3.Text ;
  L[3]:= Edit5.Text ;
  L[4]:= Edit7.Text ;
  L[5]:= Edit8.Text ;
  L[6]:= Edit9.Text ;
  L[7]:= Edit10.Text ;

  FreeAndNil(L);
end;

men når jeg prøver at køre programmet siger den:

EstringListError with message "list index out of bounds (0)"

Når jeg derefter åbner DAT filen i word, har den slettet alt i filen...

Er der nogle som kan sige mig hvordan jeg får gemt tallere i de samme linier som de blev åbnet så de nye tal bare overskriver de gamle?