Esta parte del codigo la cambie.
Código Delphi
[-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort.ReadStr(Str, Count);
AddHexString(Str,Memo.Lines);
end;
Para que lo recibido fuera combertido a hex.
Un Saludo.