table. and query (20)

xSQL:='SELECT TICKNO FROM SUBCTLDOC WHERE COMPID =:xCompID AND TICKDT=:xDueDay AND TICKTP=:xSubID AND INTYPE=:xInType';
  QryTemp.Close;
  QryTemp.SQL.Clear;
  QryTemp.SQL.Add(xSQL);
  QryTemp.ParamByName('xCompID').AsString := xCompID;
  QryTemp.ParamByName('xDueDay').AsString := xDueDay;
  QryTemp.ParamByName('xSubID').AsString := xSubID;
  QryTemp.ParamByName('xInType').AsString := xInType;
  QryTemp.Open;
  if not QryTemp.eof then ReSult := QryTemp.FieldByName('TICKNO').AsInteger else ReSult := -1;