Gerar número de sessão em Delphi

Gerar número de sessão em Delphi

{-----> Função para gerar número de sessão-------------------------------}

function TFormTesteBemaSAT.NumSessao: integer;

begin

Randomize;

numeroSessao := Random(999999);

Result:= numeroSessao;

end;

{------------------------------------------------------------------------}