获得随机编码值

 //获得随机编码值，用于在数据库中设为唯一识别其它记录
function GetRandom():String;
var IdString:string;
begin
  DateTimeToString(IdString,'yyyymmddhhnnsstt',now);
  Randomize;
  IdString:='guet'+copy(IdString,1,16)+IntToStr(RandomRange(10,99));
  Randomize;
  IdString:=trim(IdString)+IntToStr(RandomRange(100,999));
  Randomize;
  IdString:=trim(IdString)+IntToStr(RandomRange(1000,9999));
  result:= IdString;
end;