CryptGenRandom,CryptoAPI

[tiger]

как сгенерировать случайное число в CryptoAPI? нужно для серверной части лабораторной. я делаю так, но оно возвращает 0. наверное я чего-то не понимаю. подскажите пожайлуйста если не сложно.

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
hProv: HCRYPTPROV;
hash: HCRYPTHASH;
key: HCRYPTKEY;  
name2: string; 
inFile, outFile: file; 
data: PByte; 
l: DWORD;
dwHashLen,i:integer;
dwC:PByte;
err: string;
len:integer;
date2:Byte;
  date : array of byte;
begin
with ATHread.Connection do
  begin
  if AThread.Connection.CurrentReadBuffer='need' then
    begin
     CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT);
     CryptGenRandom(hProv,1,PByte(date2));
     Writeln(Inttostr(date2));
end;
end;
end;