var f:TStringList; begin f:=TStringList.Create; f.loadfromfile('file.txt'); f.insert(тут параметры какие-то); f.SaveToFile; f.Free; end;