Also das mit dem TObject hab ich nicht verstanden.
Hab versucht folgendes zu schreiben:
Delphi-Quellcode:
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var i : integer;
begin
i := CheckListBox1.ItemIndex;
Table2.Append;
Table2Branchen.Value := CheckListBox1.Items[i];
Table2BR_ID.Value := CheckListBox1.Items.IndexOf(Table2Branchen.AsString);
...
end;
bin aber dann doch nicht weiter gekommen.
Muss noch über den CheckListBox-Index auf die richtige BRA_ID kommen.