كيف أفعل أكثر من مكون ADOQuery دون كتابة AdoQuery2.open

[igidher]

السلام عليكم
لدي في برنامج عدد معتبر من AdoQuery لحساب إحصائيات في نفس الوقت
سؤالي كيف أفعلهم جميعا دون كتابة AdoQuery20.open لكل واحدة؟؟

[محمد عبد العزيز]

السلام عليكم

أكتب شيئ مثل

كود :

var i:integer; begin for i := 0 to ComponentCount-1 do if( Components[ i ] is TADOQuery )then (Components[ i ] as TADOQuery).Open; end;