Fórum SEPARAR ARQUIVO .txt em VARIOS ARQUIVOS .txt com 500 linhas cada #493552

procedure TForm1.FormCreate(Sender: TObject);
var
  Counter, i : Integer;
  StringList : TStringList;
begin
  Memo1.Lines.LoadFromFile('C:\Users\informatica\DESKTOP\medicam.txt');
  StringList  := TStringList.Create;
  Counter     := 0;
  For i := 0 to (Memo1.Lines.Count -1) do
    Begin
      if (I mod 100 = 0) then
        begin
          Inc(Counter);
          StringList.SaveToFile('./texto' + IntToStr(Counter) + '.txt');
          StringList.Clear;
        end;
      StringList.Add(Memo1.Lines.Strings[i]);
    end;
end;