[mrobles]

Empezado por PepCat

¿Y crear un GUID?

uses
  ComObj, ActiveX;

function CreateGuid: string;
var
  ID: TGUID;
begin
  Result := '';
  if CoCreateGuid(ID) = S_OK then
    Result := GUIDToString(ID);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := CreateGuid;
end;

Pone que debe ser un numero secuencial, por lo que se descartan UUIDs