1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var f:Array of textfile;
    i,j:Integer;
    datei:tstringlist;
    zeilen,dateien:Integer;
begin
datei := tstringlist.create;
datei.LoadFromFile('textdatei.txt');
zeilen := datei.count;
dateien := zeilen div 300;
setlength(f,dateien);
for i := 0 to dateien-1 do
begin
assignfile(f[i],'Datei'+inttostr(i)+'.txt');
rewrite(f[i]);
 for j := 1 to 300 do
  begin
   writeln(f[i],datei.strings[i*300+j-1]);
  end;
closefile(f[i]);
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure Splitte(const aDatei:String; Menge:Integer);
var l1, l2:TStringList;
    i:Integer; 
begin
  if FileExists(aDatei) then
  begin
    l1:=TStringList.Create;
    l2:=TStringList.Create;
    try
      l1.LoadFromFile(aDatei);
      for i:=0 to l1.Count-1 do
      begin
        l2.Add(l1.Strings[i]);
        if ((l2.Count=Menge) or (i=l1.Count-1)) then 
        begin
          l2.SaveToFile(Format('%sSplittdatei%0.3d.txt', [IncludeTrailingBackslash(ExtractFilePath(aDatei)), i Div Menge]));
          l2.Clear;
        end; // if
      end; // for i
    finally
      l2.Free;
      l1.Free;
    end; // try
  end; // if
end; // Splitte					

1:

  Splitte('C:\Eigene Dateien\MeineDatei.txt', 300);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

procedure TForm1.TxtSplit(Datei: String; Zeilen: LongWord);
var
  inDatei,
  outDatei : TextFile;
  outDateiName : String;
  i, j : LongWord;
  Zeile : String;
begin
  AssignFile(inDatei, Datei);
  try
    ReSet(inDatei);
  except
    ShowMessage('Fehler beim öffnen der Source-Datei!');
    CloseFile(inDatei);
    Exit;
  end;
  i := 0;
  repeat
    Inc(i);
    j := 0;
    outDateiName := Copy(Datei,0,Length(Datei)-Length(ExtractFileExt(Datei)))
                    +'['+IntToStr(i)+']'+ExtractFileExt(Datei);
    AssignFile(outDatei, outDateiName);
    try
      ReWrite(outDatei);
    except
      ShowMessage('Fehler beim erzeugen der Output-Datei!');
      CloseFile(inDatei);
      CloseFile(outDatei);
      Exit;
    end;
    repeat
      Inc(j);
      try
        ReadLn(inDatei, Zeile);
        WriteLn(outDatei, Zeile);
      except
        ShowMessage('Read/Write-Fehler in Datei);
        CloseFile(inDatei);
        CloseFile(outDatei);
        Exit;
      end;
    until (j > Zeilen-1) or eof(inDatei);
    CloseFile(outDatei);
  until eof(inDatei);
  CloseFile(inDatei);
end;