procedure BytesToFile(bData:TByteArray; sPath:string);

var

hFile:    THandle;

dWritten: DWORD;

begin

  hFile := CreateFile(PChar(sPath), GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

  if hFile <> 0 then

  begin

    SetFilePointer(hFile, 0, nil, FILE_BEGIN);

    WriteFile(hFile, bData[0],Length(bData), dWritten, nil);

    CloseHandle(hFile);

  end;

end;