procedure TfmMain.FormCreate(Sender: TObject);
var
  sqlRes : TPQResult;
begin
  test := TDBPostgres.Create;
  if not test.InitializeLibrary then
    Exit;
  con := test.ConnectDB('user=postgres password=### dbname=celestialempires hostaddr=127.0.0.1 port=5432');
  if test.GetStatus(con) = PQ_CONNECTION_OK then begin
    try
      sqlRes := test.Exec(con, 'INSERT INTO "licenseKeys" ("licenseKeyID") VALUES(uuid_generate_v4())');
    finally
      test.Finish(con);
    end;
  end;
end;