Редактирование файла в цикле

[Var17]

Здраствуйте, есть проблема при создании программы.
Программа создает заданное количество каталогов в цикле, копирует туда файлы, необходимо в одном из текстовых файлов поправить одну строчку.
Открываем файл, считываем его содержимое, заменяем строчку, а затем нужно исправленные данные записать в файл.
Проблема в том, что не понятно где хранить эти данные для записи в файл в цикле.

Начало цикла
while k<k1 do begin
Reset (f);
while not EOF (f) do begin
Readln (f, buf);
//находим нужную строку
if pos('=', buf) <> 0 then
buf:=izm3;
// ? куда записать эти данные
end;
closefile(f);
rewrite (f);
//запись в файл
closefile (f);
end;

[Domovoy]

Подозрительное это "=" смахивает на ini файл.
Если я прав то решение гараздо проще!
В твоём случае я б сделал так:

var
  LText:TStringList;
  i:integer;
  S:string;
begin
  LText:=TStringList.Create;
  LText.LoadFromFile('C:\1.txt');
  S:=LText.Text;
  i:=pos('=',S);
  delete(S,i+1,i+2);
  insert('Z',S,i+1);
  LText.Text:=S;
  LText.SaveToFile('C:\2.txt');
  LText.Free;
end;

Это всего лишь пример как можно было сделать