Нужно разбить фаил на несколько строк (Delphi)

[kakawkin]

В общем есть текстовый фаил котоырй содержит около 1к строк. Надо из 1 этого большого текстовика сделать много маленьких в которых будет ровно по 5 строк.

Т.е. из 1 большого сделать чтобы в:
01.txt - 1-50 строка
02.txt - 50-100 строки

[Serge_Bliznykov]

во втором файле, наверное, всё же 51-100 строки ?!

var i, k : integer;
   f : TextFile;
   TS : TStringList;
begin
   TS := TStringList.Create;
   TS.LoadFromFile('ИмяИсходногоФайла.txt');
   k:=1;
   i := 0;
   AssignFile(f, IntToStr(k)+'.txt');
   Rewrite(f);
   while i<TS.Count do begin
       WriteLn(f, TS.Strings[i]);
       inc(i);
       if (i mod 50) = 0 then begin
           {значит уже 50 строк записали! Надо создавать следующий текстовый файл}  
          CloseFile(f);
          inc(k);
          AssignFile(f, IntToStr(k)+'.txt');
          Rewrite(f);
       end; 
   end;
   CloseFile(f);

   FreeAndNil(TS);

end.

ну, как-то так...
писал прямо в браузере, возможны ошибки/опечатки..
но идею вроде бы не исказил..

[kakawkin]

спасибо - идея то что надо и написано уверен что правельно ибо т.к. сейчас делаю уже чуть дальше без этого момента. Но к нему вернусь и буду пользоваться вашим примером