DataModule.DBTransaction.Active := TRUE;
 
  with DataModule.queryUpdateDB do
    begin
      Close;
      SQL.Text := 'CREATE TABLE TEST ( ' +
        'ISPRAVA  VARCHAR(5) NOT NULL, ' +
        'GODINA   VARCHAR(4) NOT NULL, ' +
        'FIRMA    INTEGER NOT NULL, ' +
        'BROJ     INTEGER NOT NULL, ' +
        'DATUM    DATE, ' +
        'OPIS     INTEGER);';
      ExecQuery;

      Close;
      SQL.Text := 'ALTER TABLE TEST ADD CONSTRAINT PK_TEST PRIMARY KEY (ISPRAVA, GODINA, FIRMA, BROJ);';
      ExecQuery;
    end;

  DataModule.DBTransaction.COMMIT;