[AlexSku]

Вот как можно увидеть данные (string):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  SWide: WideString;
  S:     String;
  I:     Integer;
begin
  SWide:= WideString('ABC');
  S:= '';
  for I:= 1 to Length(SWide) do
    S:= S + IntToHex(Ord(SWide[i]), 4) + ' ';
  Edit1.Text:= S;    // 0041 0042 0043
end;