1:
2:
3:
4:
5:
6:
7:
8:
9:

      // check if item exists in the database
      if CurrentAddItem.FieldCount > 0 then CurrentAdditem.ClearFields;
      CurrentAddItem.Params.Clear;
      SQLExecString := 'SELECT * FROM ResultURLTable WHERE URL = ' + QuotedStr(TempURLString) + ';';
      CurrentAddItem.Open(SQLExecString);
      if not CurrentAddItem.IsEmpty then
      begin
       // item found
       CurrentAddItem.First;                    

1:

SQLExecString := 'SELECT * FROM ResultURLTable WHERE STATUS = -1;';