生成SESSIONID

uses SynCommons

procedure TForm1.Button1Click(Sender: TObject);
var
i: Cardinal;
begin
i := abs(Random32*PPtrInt(self)^);
end;