CreateGUID 或 CreateClassID sample :
    var
     AGuid:TGuid;
    begin
     OLECheck(CreateGUID(AGuid));
     ShowMessage(GUIDToString(AGuid))
    
     ShowMessage(CreateClassID);
    end;

要在use里面加use comObj;

生成GUID的算法根据以下几个方面：1.当前日期和时间。2.网络适配器卡地址。3.时针序。4.自动递增计数器。其中，网卡地址是相互不同的，对没有网卡的机器，地址对使用中的机器保持唯一性。

GUID码可以认为是不会重复的。不同环境是不可能生成重复的GUID码，就算相同环境(以上四个都相同)重复概率也是非常非常低。