Das ist so einfach, das Marco Cantù in seinem Buch "Mastering Delphi X" nicht einmal bereit ist den Code zu posten
...
...
P.s.:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
NewGUID: TGUID;
begin
CreateGUID(NewGUID);
ShowMessage(GUIDToString(NewGUID));
end;