Timer1.Enabled := false; // Чтобы на каждую запись он сбрасывал истекшее время и начинал заново
Timer1.Enabled := true;

Timer1.Enabled := false;
*** вызов дочерней сетки ***

SELECT cc.*, 
(@rownum := @rownum + 1) AS rownum, 
contract_number, contract_date, cown.contragent_full_name AS cargo_owner_name, 
cargo_nomenclature_code, cargo_nomenclature_name, cargo_mark_name, cargo_mark_description, container_type_name, container_weight,
cargo_size, cargo_fraction_name, cc.conosament_number, vessel_act_number, general_act_number, 
sender.contragent_full_name AS sender_name, receiver.contragent_full_name AS receiver_name, consignment_number,
IF(cc.pauzka = 'Y', 'ДА', 'НЕТ') AS pauzka_rus,
IF(cc.cooperated = 'Y', 'ДА', 'НЕТ') AS cooperated_rus,
(CASE `c`.`cargo_status` 
WHEN 'export' THEN CONCAT(`cn`.`cargo_nomenclature_name`,' (Э)') 
WHEN 'import' THEN CONCAT(`cn`.`cargo_nomenclature_name`,' (И)') 
WHEN 'domestic' THEN CONCAT(`cn`.`cargo_nomenclature_name`,' (К)') 
ELSE `cn`.`cargo_nomenclature_name` end) AS `cargo_nom_rus`, 
(IF (((contract_date = '1899-12-30') OR (contract_date IS NULL)),
'00.00.0000', DATE_FORMAT(contract_date, '%d.%m.%Y'))) AS contract_date_rus, 
IF((MAX(COALESCE(tex.from_cargo_card_id, tex.to_cargo_card_id)) IS NOT NULL) AND (MIN(COALESCE(tex.transshipment_finish_time, '1899-12-30')) > '1899-12-30'), 'Y', 'N') all_tr_finished 
FROM cargo_card cc 
INNER JOIN vessel_cargo_card vcc ON vcc.id = cc.id 
JOIN (select @rownum := 0) AS r
INNER JOIN contract_cargo_sub ccs ON ccs.id = cc.contract_cargo_sub_id
INNER JOIN contract_cargo_consignment ccc ON ccc.id = ccs.contract_cargo_consignment_id 
INNER JOIN consignment cons ON cons.id = ccc.consignment_id 
INNER JOIN contract_cargo_head cch ON cch.id = ccc.contract_cargo_head_id
INNER JOIN contract c ON c.id = cch.contract_id 
INNER JOIN cargo_nomenclature cn ON cn.id = cch.cargo_id 
LEFT JOIN container_type ct ON ct.id = cch.container_type_id 
LEFT JOIN container_weight_type cwt ON cwt.id = ccs.container_weight_type_id 
LEFT JOIN cargo_fraction cf ON cf.id = ccs.cargo_fraction_id 
LEFT JOIN cargo_mark cm ON cm.id = ccs.cargo_mark_id 
LEFT JOIN cargo_sort cs ON cs.id = ccs.cargo_sort_id 
LEFT JOIN contragent cown ON cown.id = c.contragent_id 
LEFT JOIN contragent sender ON sender.id = cc.sender_id 
LEFT JOIN contragent receiver ON receiver.id = cc.receiver_id 
LEFT JOIN transshipment tex ON cc.id IN (tex.from_cargo_card_id, tex.to_cargo_card_id) 
WHERE vcc.plan_vessel_id = :plan_vessel_id 
GROUP BY cc.id

EndOfQuery := (ADQueryPlans.RecordCount = 0) or (ADQueryPlans.RecordCount < ThisLimit);