[monicasierrar]

Entre las dos líneas siguientes:

frm_Consulta.ShowModal;

Refresh;