conversión hexadecimal

[yevabas]

Buenos tardes

La verdad necesito hacer una XOR con unos datos que recibo por el puerto, pero hasta el momento nada me funciona y no encontre nada que me ayudara, disculpen si ya lo trataron pero no vi nada.

la idea es que recibo los siguientes datos y me quedan almacenados en un memo de la siguiente manera, a los datos del puerto le aplico la siguiente función para que se vean en hexa.

Código Delphi [-]
for r := 1 to  Count do
    begin
     dato3:= IntToHex((Ord(dato1[r])),1);
     dato4 := dato4 + dato3;      
end;
 Memo2.Lines.Add(dato4);

donde count es la cantidad de bytes recibidos por el puerto, al final en memo2 se vera

AAAE3153

ahora necesito hacerle una XOR, entonces el resultado debe ser 66 en hexa por supuesto, si utilizo la función Ord() este solo me toma cada caracter independiente y no como un byte, mejor dicho AA es 170 en decimal y si utilizo la funcion Ord() me da 4141,en realidad no se como hacer para que se tome los dos caracteres como uno solo y se convierta a decimal sin problemas.

estoy utilizando el componente Tcomport 4.


Muchas gracias por su colaboración y tiempo