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