[lmikle]

А не проще так:

Код:

var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  For I := 1 To 100 Do
    L.Add('№ ' + IntToStr(n));
  Try
    L.SaveToFile('MyFile.txt');
  Finally
    L.Free;
  End;
end;

Создание, сохранение и уничтожение объекта (L) можно разнести в разные места, соответсвенно, сразу писать в него данные и не создавать доп. структуры для их хранения.