Hallo,
schau mal, ob Dir das hilft:
Delphi-Quellcode:
Var
i : integer;
sField : String;
sSid : String;
begin
sField := ADOQuery1.FieldByName('objectSid').AsString;
for i := 1 to length(sField) do sSid := sSid + IntToHex(Ord(Copy(sField,i,1)[1]),2) + ' ';
showmessage(sSid);
end;