TADOQuery Primary Key auslesen

[Ducksoul]

So ich hab jetzt mal den Workaround probiert. Allerdings stelle ich mir jetzt noch die Frage was da genau passiert.

Delphi-Quellcode:

        ADODataSet1.CommandText := 'SELECT * From Kunde';
        ADODataSet1.Active := True;
      if ADODataSet1.IndexName <> '' then
        begin
          ADODataSet1.IndexDefs.Update;
          IndexDef := ADODataSet1.IndexDefs.Find(ADODataSet1.IndexName);
          if IndexDef <> nil then
            FList := IndexDef.Fields else
            FList := '';
        end;
        ShowMessage(FList);

Er springt gar nich in die if-Schleife rein. Allerdings kann ich auch nicht so ganz nachvollziehen was IndexName eigentlich ist. Wie muss ich das jetzt noch anpassen, dass mir auch der Primärschlüssel ausgegeben wird?

Gruß