[yevabas]

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!!!