Разбить текстовый файл на части

unit Unit10;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sEdit, Vcl.Buttons,
  sBitBtn, sDialogs, sLabel;
 
type
  TForm10 = class(TForm)
    sBitBtn1: TsBitBtn;
    sOpenDialog1: TsOpenDialog;
    sBitBtn2: TsBitBtn;
    sLabelFX1: TsLabelFX;
    sLabelFX2: TsLabelFX;
    sEdit1: TsEdit;
    procedure sBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form10: TForm10;
  baza: Tstringlist;
  login,pass: string;
  foundfile: textfile;
 
implementation
 
{$R *.dfm}
 
procedure TForm10.FormCreate(Sender: TObject);
begin
baza:= Tstringlist.Create;
  Createdir(ExtractFilePath(Application.ExeName)+'Разбитые базы');
 Assignfile(foundfile, ExtractFilePath(Application.ExeName)+'\Разбитые базы\'+Form10.sEdit1.Text+'.txt');
    Rewrite(foundfile);
    closefile(foundfile);
end;
 
procedure TForm10.sBitBtn1Click(Sender: TObject);
begin
if sOpenDialog1.Execute then
begin
  baza.Clear;
  baza.LoadFromFile(sOpendialog1.FileName);
end;
end;
 
 
procedure TForm10.sBitBtn2Click(Sender: TObject);
var
  i,g: Integer;
begin
for i :=0 to baza.Count do
begin
     if pos(':', baza[i])<>0 then
     begin
      login:=Copy(baza[i], 1, Pos(':',baza[i])-1);
      pass:=Copy(baza[i], Pos(':', baza[i])+1, Length(baza[i]));
    end
     else
      begin
      login:=Copy(baza[i], 1, Pos(';',baza[i])-1);
      pass:=Copy(baza[i], Pos(';', baza[i])+1, Length(baza[i]));
    end;
end;
 
       while g<strtoint(Form10.sEdit1.Text) do
     begin
     append(foundfile);
     writeln(foundfile,Login+';'+pass);
     closefile(foundfile);
     break;
     end;
 
end;
 
end.

var i: integer;
     j: integer;
     s: string;
     n: integer; //max строк в файле 
     m: integer; //№ файла куда копировать 
begin
 s:='';
 j:=1;
 m:=1;
 for i:=0 to baza.Count-1 do 
  if (j<n)and(i<>baza.Count-1) then begin
   s:=s+baza.Strings[i];
   inc(j);
  end else begin
   SaveToFile(s,m); //это процедура, которая будет записывать в файл. напишите ее сами
   s:=baza.Strings[i];
   inc(m);
   j:=1;
  end; 
end;

var i: integer;
     j: integer;
     s: string;
     n: integer; //max строк в файле 
     m: integer; //№ файла куда копировать 
begin
 s:='';
 j:=1;
 m:=1;
 if not TryStrToInt(Edit1.Text,n) then Exit; //проверяем что в Edit1 введено число, если нет - выходим
 for i:=0 to baza.Count-1 do //проходим по всем строкам stringlist
  if (j<n)and(i<>baza.Count-1) then begin //проверяем кол-во считанных строк < Edit1
                                                         // или считали не последнюю строку stringlist
   s:=s+baza.Strings[i];                        //добавляем текущую строку к s
   inc(j);
  end else begin                                  //достигли максимального числа строк в файле или конец stringlist
                                                       //записываем значение из s в файл с №=m, например, 1.txt, 2.txt.....
   SaveToFile(s,m); //это процедура, которая будет записывать в файл. напишите ее сами
   s:=baza.Strings[i];
   inc(m);    //№ следующего файла для сохранения                                    
   j:=1;      //кол-во считанных строк из stringlist
  end; 
end;

var i: integer;
     j: integer;
     s,gog: string;
     n: integer; //max строк в файле
     m: integer; //№ файла куда копировать
begin
 s:='';
 j:=1;
 m:=1;
 for i:=0 to baza.Count-1 do
  if (j<n)and(i<>baza.Count-1) then begin
   s:=s+baza.Strings[i];
   inc(j);
  end else begin
   s:=baza.Strings[i];
     Createdir(ExtractFilePath(Application.ExeName)+'Разбыте базы');
    Assignfile(foundfile, ExtractFilePath(Application.ExeName)+'\Разбыте базы\'+Form10.sEdit1.Text+'.txt'); //Также название папки и название файла с гудами (Изменять только то что синим, кроме .txt)
    Rewrite(foundfile);
    closefile(foundfile);
    Append(foundfile);
      Writeln(foundfile,s);
      Closefile(foundfile);
 
 
 
   inc(m);
   j:=1;
  end;
end;