procedure TfmMain.FormCreate(Sender: TObject);
var
  sqlRes : TPQResult;
  i : Integer;
begin
  pgHandler := TDBPostgres.Create;
  if not pgHandler.InitializeLibrary then
    Exit;
  con := pgHandler.ConnectDB('user=postgres password=##### dbname=celestialempires hostaddr=127.0.0.1 port=5432');
  if pgHandler.GetStatus(con) = PQ_CONNECTION_OK then begin
    try
      sqlRes := pgHandler.Exec(con, 'BEGIN');
      if pgHandler.ResultStatus(sqlRes) <> PGRES_COMMAND_OK then begin
        pgHandler.Clear(sqlRes);
        Exit;
      end;

      pgHandler.Clear(sqlRes);
      sqlRes := pgHandler.Exec(con, 'DECLARE keyrec CURSOR FOR SELECT * FROM "licenseKeys"');
      if pgHandler.ResultStatus(sqlRes) <> PGRES_COMMAND_OK then begin
        pgHandler.Clear(sqlRes);
        Exit;
      end;

      pgHandler.Clear(sqlRes);
      sqlRes := pgHandler.Exec(con, 'FETCH ALL IN keyrec');
      if pgHandler.ResultStatus(sqlRes) <> PGRES_TUPLES_OK then begin
        pgHandler.Clear(sqlRes);
        Exit;
      end;

      if pgHandler.FieldCount(sqlRes) <> 2 then begin
        pgHandler.Clear(sqlRes);
        Exit;
      end;

      for i := 0 to pgHandler.TupleCount(sqlRes)-1 do begin
        lbServerLog.Items.Add(pgHandler.GetValue(sqlRes, i, 0) + ' = ' + pgHandler.GetValue(sqlRes, i, 1));
      end;

      pgHandler.Clear(sqlRes);
      sqlRes := pgHandler.Exec(con, 'CLOSE keyrec');
      pgHandler.Clear(sqlRes);
      sqlRes := pgHandler.Exec(con, 'END');
      pgHandler.Clear(sqlRes);


    finally
      pgHandler.Finish(con);
    end;
  end;
end;