1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

 Table2.DisableControls;
  Table2.First;
  a:=1;
  while not Table2.eof do begin
    if Table2.FieldByName('Liederbuch').AsString='COOL' then
      StringGrid1.Cells[0,a] :=Table1.FieldByName('ID').AsString;
      StringGrid1.Cells[1,a] :=Table1.FieldByName('Liederbuch').AsString;
      StringGrid1.Cells[2,a] :=Table1.FieldByName('Nummer').AsString;
      a := a +1;
      StringGrid1.Row := StringGrid1.Row + 1;
    Table2.next;
  end;
  Table2.EnableControls;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

ClientDataSet2.DisableControls;
 ClientDataSet2.First;
  a:=1;
  while not ClientDataSet2.Eof do begin
    if ClientDataSet2.FieldByName('Liederbuch').AsString='COOL' then
    begin
      StringGrid1.Cells[0,a] :=ClientDataSet2.FieldByName('ID').AsString;
      StringGrid1.Cells[1,a] :=ClientDataSet2.FieldByName('Liederbuch').AsString;
      StringGrid1.Cells[2,a] :=ClientDataSet2.FieldByName('Nummer').AsString;
      a := a +1;
      StringGrid1.RowCount := StringGrid1.RowCount + 1;
    end;
    ClientDataSet2.Next;
  end;
  ClientDataSet2.EnableControls;