Разбиение текста из файла на строки delphi

Разбиение текста из файла на строки delphi
В фаиле записан построчно текст, вида:

123
434
534
353
343

Количество строк может быть бесконечное.

Как разделить этот текст на заданное количество строк?

Например: В фаиле 2000 строк, указываем количество строк в 1000 и на выходе получаем два фаила по 1000 строк. Или имеем текст в 2400 строк, указываем 1000 и получаем два фаила по 1000 строк и один в 400 строк.

Нужен код*

  • грузите в TStrings и получите то что вам нужно.

    зы: вы не указали - что у вас будет разделителем строк? ведь есть текст в файле будет: 234й249283098239081489934812904894823424761984628974612897461927846127984694679128461297834123749712846127469127469127864129, то тут нужно подходить иначе