Gracias a todos, toda la información fue muy util al final lo adapte a lo que necesitaba y quedo así
Código Delphi
[-]
procedure TForm1.btn1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Text := 'AAAE3153';
hex2();
end;
procedure TForm1.hex2();
var
i,c,k,h: Integer;
dm,dm1,x: string;
begin
c:= 1;
for i:= 1 to Length(Memo1.Text) div 2 do
begin
dm:= IntToStr(StrToInt('$' + Copy(Memo1.Text, c, 2)));
Inc(c, 2);
k:= k xor StrToInt(dm);
edt1.Text := IntToStr(k)
end;
edt1.Text:='0h'+ inttohex(k,2);
SetLength(dm,Length(dm)-1);
end;
entonces en edt1 me quedo 66 en heaxa que es el resultado de hacer una xor entre los valores que hay memo1
de nuevo muchas gracias y como siempre aprendiendo cada vez mas con su ayuda!!!