Skal hente en .txt fil, og ændre denne

Hent teksten ind enter i en vriael af formen: ansistring ellse TStrings.

Jeg ville bruge TStrings - siden det er linier du har med at gøre prøv så:

procedure TForm1.Button1Click(Sender: TObject);
Var
MinList : Tstringlist;
Begin
MinList := Tstringlist.create;
MinList.loadfromfile(\'C:\\Test.txt\');
MinList.Add(\'Min nye linie\');
MinList.SaveToFile(\'C:\\Test.txt\');
MinList.free;
end;

Linien ryger ind i bunden af teksten.
Hvis du vil have den i toppen skal/kan du gøre sådan her:

procedure TForm1.Button1Click(Sender: TObject);
Var
MinList : Tstringlist;
Begin
MinList := Tstringlist.create;
MinList.loadfromfile(\'C:\\Test.txt\');
MinList.Text := \'Hej her er min nye linie\'+#13#10+MinList.Text;
MinList.SaveToFile(\'C:\\Test.txt\');
MinList.free;
end;


dkn