Access aussergewöhnlicher Fehler bei Unique-Key...?!?

[alexo]

sieh doch mal in die überschrift

ado...

das ist meine speicher funktion

Delphi-Quellcode:

procedure TFrmKategorieErstellen.SaveNew(TblKat,TblFarb:TADOTable; EdtName:TEdit);
var
  HoechsteNr: Integer;
begin
    TblKat.Active := True;
    TblFarb.Active := True;
    TblKat.Append;
    TblFarb.Append;
    TblKat.FieldByName('KategorieName').AsString := Edtname.Text;
    TblKat.FieldByName('KategorieArtEinnahme').AsBoolean := rdbEinnahme.Checked;
    //KategorieNr ermitteln
      with Datamodule1.AdoQuery1 do
      begin
        active := false;
        Sql.Clear;
        Sql.Add('Select Max(KategorieNr) As HoechsteNr');
        Sql.Add('from TblKategorie');
        active := true;
        HoechsteNr := FieldByName('HoechsteNr').AsInteger;
      end;
    TblKat.FieldByName('KategorieNr').AsInteger := (HoechsteNr + 1);
    TblFarb.FieldByName('FarbcodeNr').AsInteger := clb.ItemIndex;
    TblFarb.FieldByName('FarbCodeText').AsString := ColorToString(clb.selected);
    TblKat.FieldByName('FarbCode').AsInteger := TblFarb.FieldByName('FarbCodeNr').AsInteger;
    TblKat.Post;
    TblFarb.Post;
end;