Fórum Componentes TAsync32. #187562

procedure TfrmCaixa_Sweda.PortaSerialRxChar(Sender: TObject; Count: Integer);
type CharBuf = Array[ 0..9999 ] of char;
var Buffer: ^CharBuf;
      Bytes, P: Integer;
Begin

GetMem( Buffer, PortaSerial.ReadBufSize );

  try
    FillChar( Buffer^, PortaSerial.ReadBufSize, 0 );
    Bytes := PortaSerial.Read( Buffer^, Count );
    If Bytes = -1 Then
    ShowMessage( ´Erro de leirura nos dados de entrada...´ )
    Else
    Begin
    For P := 0 to Bytes -1 do
      Begin
      Case Buffer^[P] of
        0, 10:;
          13:
          Begin

PassarItem( LineData ); // Envia o código EAN-13
            LineData := ´´;
              rxQtde.Value:= 1;
            End;
          Else
          Begin
            LineData := LineData + CharBuf( Buffer^)[P];
            End;
        End;
      End;
    End;
    Application.ProcessMessages;
  Finally
FreeMem( Buffer );
  end;

End;