Unicode-Probleme bei GetDeviceInfoList

[juelin]

Hallo zusammen,
ich habe ein Problem und weiß nicht weiter.
Ich habe ein Programm, welches Laser ansteuert (Lumax und Netlase).
Wenn ich das mit Delphi 7 laufen lasse läuft alles.
Mit Embarcado XE5 bekomme ich bei der DEVLIST komische Zeichen.
Hier ein Programmauszug:

Delphi-Quellcode:

  s:=LW_CreateDeviceInfoList(adev);
  if s = 0 then
  begin
    Preturn:=0;
    if adev > 0 then
    begin
      Preturn:=2;
      ldr1:=@DevLists;
      num:=1;
      ldr2:=@num;
      s:=LW_GetDeviceInfoList(ldr1, ldr2);
      if s = 0 then
      begin
        Preturn:=0;
        for x:=0 to adev-1 do
        begin
          te1:='';
          l:=Length(DevLists.wdevlists[x].SerialNumber.wsernum);
          m:=1;
          for a:=0 to l-1 do
          begin
            te3:=DevLists.wdevlists[x].SerialNumber.wsernum[a];
            if te3 = chr(0) then
            begin
              m:=0;
            end;
            if m = 1 then
            begin
              te1:=te1+te3;
            end;
          end;
// hier sollte in te1 'LX2UUK05' stehen
// bei XE5 steht hier '塌唲䭕㔰'#$12'廜盟楍楮畬慭⁸楌桧⁴'
        end;
      end;
    end;
  end;

Kann mir da jemand helfen?
Danke und Gruß
Jürgen