Tabelleninhalt in Checklistbox anzeigen

[needatip]

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.