[cotseec]

Код:

var
   tmp:TStringList;
begin
   tmp:=TstringList.Create;
   tmp.Clear;
   tmp.LoadFromFile('c:\MyFile.txt');
   tmp.Add('MyNewString');// добавление строки к файлу
   tmp.Insert(0,'MyNewString');// вставка строки в позицию 0 (первая строка)
   tmp.SaveFile('c:\MyFile.txt');
   FreeAndNil(tmp);
end;