1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
i: integer;
val: string;
sl:TsrtingList;

begin

val:='FC Bayern'{oder anderer Verein};
sl:=TstringList.create;
Table.first;
while not Table1.Eof do begin

if Table1.Fields[3]{is bei mir Vereinsname}.Asstring= val than
sl.Add(inttoStr(Table1.Fields[4]  {bei mir die ID-Nummer}.Asinteger));
Table1.text;
end;

Table.first;

for i:=1 to sl.count do begin 
lbkader.items.add(table1.fields[0]  {Spielername}.Asstring);
Table1.next;
end;
sl.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.FormCreate(Sender: TObject);
begin
  //--Combobox mit den Vereinen bestücken
  with ComboBox1.Items do
   begin
     Add(''); //--Leerzeile
     Add('Verein abc');
     Add('Verein def');
     ...
     Add('Verein xyz');
  end;
  //--auf ersten Eintrag (Leerzeile) stellen
  ComboBox1.ItemIndex := 0;
  ...
end;

{Tabelle filtern anhand des ausgewählten Vereins}
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  //sofern Table1.Fields[3].FieldName vereinsname lautet, ansonsten anpassen
  Table1.Filter := 'vereinsname=' + QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex]);
  Table1.Filtered := (ComboBox1.ItemIndex>0);
end;

{aus gefilterter Tabelle Spieler in Kaderliste übernehmen}
procedure TForm1.DBGrid1DblClick[Sender: TObject);
begin
  if Table1.Filtered then
    lbkader.items.add(table1.fields[0].Asstring);
end;