BigText > 1024 bytes through C/SIDE

IF lSetup.Logfile <> '' THEN BEGIN
  lLogFile.WRITEMODE := TRUE;
  lLogFile.TEXTMODE := TRUE;
  IF NOT EXISTS(lSetup.Logfile) THEN
    lLogFile.CREATE(lSetup.Logfile)
  ELSE BEGIN
    lLogFile.OPEN(lSetup.Logfile);
    lLogFile.SEEK(lLogFile.LEN);
  END;

  lLogFile.CREATEOUTSTREAM(lOutStream);

  CREATE(lBSTRConv); // 'Microsoft ActiveX Data Objects 2.8 Library'.Stream
  i := 0;
  lBSTRConv.BSTR(lFTP.SessionLog()); // Chillkat FTP Copmonent, output is BSTR
  WHILE i < lBSTRConv.GetBSTRLength DO BEGIN
    lBSTRConv.GetNextStringPortion(lTxt,1024);
    lBigTxt.ADDTEXT(lTxt);
    i += 1024;
  END;
  CLEAR(lBSTRConv);

  lBigTxt.WRITE(lOutStream);
  lLogFile.CLOSE;
END;