PrimärIndex wird nicht angelegt

[Klaus01]

.. wenn ich mit folgendem Code eine Tabelle erstelle,
wird das Feld "row1" angelegt.
Mit addIndex sollte eigentlich auch ein Primarykey angelegt werden - was aber nicht passiert.

Delphi-Quellcode:

procedure TForm1.createTable;
var
  table: TFDTable;
begin
  table := TFDTable.Create(nil);
  try
    table.Connection := fDbConnection;
    table.TableName := 'tab1';
    table.FieldDefs.add('row1', ftInteger, 0, false);
    table.AddIndex('pkRow1', 'row1', '', [soPrimary]);
    table.CreateTable(false);
  finally
    table.Free;
  end;
end

Jemand ein Idee, was ich übersehen haben könnte?

Grüße
Klaus