procedure TForm1.Button1Click(Sender: TObject);

  function GenerateRandomArticleID: Integer;
  begin
    Randomize;
    Result := RandomRange(1000000, 9999999);
  end;

  function AddGKBDocument(ADataSet: TDBISAMDataSet;
                          ATopicID: Integer;
                          const ADefault: Boolean = true): Boolean;
  begin
    result := false;
    ADataSet.Open;
    ADataSet.Insert;
    ADataSet.FieldByName('ID').AsInteger := GenerateRandomArticleID;
    ADataSet.FieldByName('TopicID').AsInteger := ATopicID;
    ADataSet.FieldByName('Title').AsString := 'GKB Document';
    ADataSet.FieldByName('Link').AsString := 'main.kbd';
    ADataSet.FieldByName('Extension').AsString := 'kbd';
    ADataSet.FieldByName('Default').AsBoolean := ADefault;
    ADataSet.Post;
    result := true;
  end;
begin
  qDocument.BeginCachedUpdates;
  AddGKBDocument(qDocument, 1);
  qDocument.Delete;
  qDocument.ApplyCachedUpdates;
end;