const
 aSQL = 'SELECT Zakazi.*, Zakazi.DateFin, Zakazi.Address, Zakazi.Operator2 ' +
            'FROM Zakazi '
            'WHERE Zakazi.DateFin=:DateFin AND ' +
            'Zakazi.Address=:address AND ' +
            'Zakazi.Operator2=:operator2';
var
 ds: TADODataSet;
begin
 ds := TADODataSet.Create(nil);
 try
   ds.Connection := ...;
   ds.CommandText := aSQL;
   ds.ParamByName('DateFin').Value := Now;
   ds.ParamByName('address').Value := 'bla-bla-bla';
   ds.ParamByName('operator2').Value := Random(20);
   ds.Open;

   while not ds.Eof do
   begin
     ......
     ds.Next;
   end;
 finally
   ds.Free;
 end;
end;