Pues hasta la fecha esto me funciono muy bien:
Código Delphi
[-]
function GenUniqueValue : String;
var
s : string;
g : TGuid;
begin
CreateGuid(g);
s := GuidToString(g);
Delete(s,1,1);
Delete(s,Length(s),1);
result := s;
end;
Espero que te sirva
Saludos