nesecito enviar mensajes a objetos de un DataModule.Components[i]

[orfeo]

hola, Uso Delphi 6 y quiero enviar mensajes a que todos los Tquery de un DataModule, mi codigo es:


for i:=0 to (DataModule1.ComponentCount-1) do
if (DataModule1.Components[i] is Tquery)
then begin
ClassRef :=DataModule1.Components[i].ClassType;
Tquery(ClassRef).close;
end;

esto falla en el close, probe de varias maneras, pero sin muchos
resultados, salta errores de direcciones de memoria.

como podran ver mi POO de Delphi es 0