...
WriteFile(ComHndl, Transmit, i + 1, BytesWritten, @FOvr);

Sleep(50 + BytesWritten * 2); //немножко ждем, пока ККТ переварит команду (дополнительно увеличиваем время для ответа в зависимости от длины команды)

ClearCommError(ComHndl, fErrs, @fStat);
fCount := fStat.cbInQue;

While True do
    begin
      ReadFile(ComHndl, fByte, 1, BytesRead, @FOvr);
      inc(j);
      if BytesRead <> 0 then
        begin
          if i > 1 then
            begin
              fPrevByte := fBuffer[i - 1];
              fCurrentByte := fByte;
            end;
          Recive[i] := fByte;
          fBuffer[i] := fByte;
          Inc(i);
          if (fPrevByte = Lo(TFunc.crc16(Copy(fBuffer, 2, i - 4), $1021, $FFFF))) And (fCurrentByte = Hi(TFunc.crc16(Copy(fBuffer, 2, i - 4), $1021, $FFFF))) then
            Break;
        end;
    end;
...