Hola,
Puedes generar, precisamente, GUIDs (Globally Unique Identifier) en tiempo de ejecución:
Código Delphi
[-]
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;
El código anterior lo he recogido de un
"tip" de Torry's Delphi Pages.
Nota: en tiempo de diseño en el editor de Delphi puedes generar GUIDs usando las teclas:
CTRL + SHIFT + G