procedure TForm1.Button1Click(Sender: TObject);
var
FFILE:TstringList;
begin
FFILE:=TstringList.Create;
FFILE.LoadFromFile('C:\hosts');
FFILE.Add('Добавляем строку');
FFILE.SaveToFile('C:\hosts');


end;