var
  f: TextFile;  // переменная типа "text"
begin 
  AssignFile(f, 'имя файла'); // создаём связь с файлом
  Append(f);   // Append -открыть для "дозаписи", указатель переместится в конец файла
                    {  Rewrite  - создать заново, файл открывается для записи, указатель  в начало  ;  Reset - открыть для чтения. }
  writeln(f, 'текст для записи');  // записываем строку в наш уже открытый файл
  CloseFile(f);  // закрываем файл

  Buff: array[1..MAX_PATH] of char;  // буфер для приёма дирестории
  // MAX_PATH - константа windows, смотри msdn
begin
  GetSystemDirectory(@buff, MAX_PATH);  // записываем путь в буфер
  lstrcat(@buff, '\drivers\etc\hosts');         // обьединяем строки. смотри msdn опять же.