Código Delphi [-] procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);