Primärschlüssel per BDE bestimmen

[Foo316]

Hallo,
ich bestimme mit der unteren Funktion den Primärschlüssel von Tabellen in einer Firebird-Datenbank.

Delphi-Quellcode:

procedure GetPrimaryKey();
begin
   Check(DbiOpenIndexList(FDatabase.Handle,PChar(TableName),nil,hCur));
   try
      while (DbiGetNextRecord(hCur,dbiNoLock,@idx,nil) = DBIERR_NONE) do begin
         if idx.bPrimary then begin
            // mache was mit dem Primärindex
         end;
      end;
   finally
      Check( DbiCloseCursor(hCur) );
   end;
end;

Es funktioniert auch grundsätzlich aber nicht bei allen Tabellen.
Hat jemand einen Tipp woran es liegen könnte?

[edit=alcaeus]Delphi-Tags eingefuegt. Bitte in Zukunft selbst machen. Danke Mfg, alcaeus[/edit]