GUID

 function tiCreateGUIDString: string;

{$IFDEF FPC}

var

  lGUID: TGUID;

{$ENDIF}

begin

{$IFDEF FPC}

  CreateGUID(lGUID);

  Result := GUIDToString(lGUID);

{$ELSE}

  Result := tiWin32CoCreateGUID;

{$ENDIF}

end;    

procedure TForm1.Button1Click(Sender: TObject);

begin

  //Showmessage(GUIDToString(CreateGUID()));

  Showmessage(tiCreateGUIDString);

end;

https://www.watermarkremover.io/

https://eagrar.gov.rs/

♥♠♣♥♠♣♥♠♣♥♠♣♥♠♣♥♠♣♥♠♣♥♠♣♥♠♣♥♠♣♥♠♣

Do you need encouragement while typing the best code ever?

Try this:

Windows 10+11 Sound Keyboard Application

THE MOST USEFUL FREEWARE