Варианты поиска по БД

     for I:=0 to list.Count-1 do begin
     str:=Trim(list[i]);
     //вариант1
     //DM.ADOQuery1.SQL.Clear;
     //DM.ADOQuery1.SQL.Add('SELECT * FROM brut WHERE login = '+QuotedStr(str));
     //DM.ADOQuery1.Active:=True;
     //вариант2
     DM.ADOQuery1.Sql.Clear;
     DM.ADOQuery1.Sql.Add('SELECT * FROM Brut WHERE login = :FindValue');
     DM.ADOQuery1.Parameters.ParamByName('FindValue').Value:=str;
     DM.ADOQuery1.Open;
     Application.ProcessMessages;
     if string.IsNullOrEmpty(DM.ADOQuery1.FieldByName('login').AsString) then listTMP.Add(str);
     Log.Caption:='Осталось проверить: '+IntToStr(list.Count - i);
     end;