Tabelle durchsuchen ohne Angabe eines Feldnamens

[Bummi]

Mir wird ganz schlecht bei dem was ich jetzt schreibe...

Delphi-Quellcode:

Found := -1;
While not DS.EOF and (Found=-1) do
  begin
    For i := 0 to DS.FieldCount - 1 do
       begin
           if pos(Uppercase(Search),Uppercase(DS.Fields[i].asString))>0 then
             begin
                 Found := i;
                 break;
             end;
       end;
  if found=-1 then DS.Next; 
  end;

(ungetestet)