TByteArray und SetLength() Problem

[justnew]

Hi
Ich habe bereits gegoogelt und keine passende Lösung gefunden, daher wende ich mich an euch.
Also ich habe eine FUnktion, welche eine Datei in ein TByteArray liest. Dieses wird aber mit SetLength() auf die Größe der Datei gebracht und genau hier kriege ich einen Fehler, dass ein Pointer erwartet wird.
Hier mal der Code:

Code:

function ReadBytes(sPath:string; var bFile:TByteArray):Boolean;
var
  hFile:  THandle;
  dSize:  DWORD;
  dRead:  DWORD;
begin
  Result := FALSE;
  hFile := CreateFile(PChar(sPath), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if hFile <> 0 then
  begin
    dSize := GetFileSize(hFile, nil);
    SetFilePointer(hFile, 0, nil, FILE_BEGIN);
    SetLength(bFile,dSize);
    if ReadFile(hFile, bFile[0], dSize, dRead, nil) then
      Result := TRUE;
    CloseHandle(hFile);
  end;
end;

Der Fehler liegt also in:

Code:

SetLength(bFile,dSize);

Ich habe es bereits mit

Code:

SetLength(^bFile,dSize);

und

Code:

SetLength(Addr(bFile),dSize);

probiert, was allerdings nicht zum Erfolg führte (selber Fehler).
Ich komme aus der C++ und ASM-Ecke und lerne gerade Delphi, daher verzeiht unnötige Fragen . Und über Hintergrundinformationen, wie das der Compiler macht freue ich mich natürlich .
IDE: Delphi 2007.