[[jcarteagaf]]

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