Pointer через Move в WideString проблема

[daemon-rm]

вот код:

var
aRSRC: HRSRC; aGlobal: HGLOBAL; aSize: DWORD; aPointer: Pointer; aStream: TStringStream;
begin
     aModule := LoadLibrary...;
     aRSRC := FindResource(aModule, aName, aType);
     if aRSRC <> 0 then begin
          aGlobal := LoadResource(aModule, aRSRC);
          aSize := SizeofResource(aModule, aRSRC);
          if (aGlobal <> 0) and (aSize <> 0) then begin
               aPointer := LockResource(aGlobal);
               if Assigned(aPointer) then begin
                  aStream := TStringStream.Create('');
                  aStream.WriteBuffer(aPointer^, aSize);
                  aStream.DataString:=Моя переменная;  
                  aStream.Free;
               end;
          end;
     end;
end;

но если ресурс в юникоде, то передает каких то 3 символа. пытался делать так:

var Моя переменная: WideString;
begin
   setLength(Моя переменная,aSize);
   move(aPointer^,Моя переменная,aSize);
end;

но это не работает, access violation. подскажите пожалуйста что нужно подправить?

[baster128]

access violation в каком месте кода?

[daemon-rm]

var
aRSRC: HRSRC; aGlobal: HGLOBAL; aSize: DWORD; aPointer: Pointer;
begin
     aModule := LoadLibrary...;
     aRSRC := FindResource(aModule, aName, aType);
     if aRSRC <> 0 then begin
          aGlobal := LoadResource(aModule, aRSRC);
          aSize := SizeofResource(aModule, aRSRC);
          if (aGlobal <> 0) and (aSize <> 0) then begin
               aPointer := LockResource(aGlobal);
               if Assigned(aPointer) then begin
                 setLength(Моя переменная,aSize);
                 move(aPointer^,Моя переменная,aSize); 
               end;
          end;
     end;
end;