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

  DataSet.SelectSQL.Text := 'SELECT * FROM TABELLE ORDER BY id';
  DataSet.Prepare;

  for i := 0 to Count-1 do begin

    DataSet.Close;
    DataSet.Filtered := False;
    DataSet.Filter   := Format('ID=%d',[i]);
    DataSet.Filtered := True;
    DataSet.Open;

    if DataSet.RecordCount > 0 then begin
      ...    
    end;
  end;