How Can I looping in TObjects ?

I have some object descend direct of TObjec, example:
TMyObject = class(TObject)
...
end;

How Cai I Find All objects from my Form ????

for i:= 0 to (All Objects in a Form ????)
  if (All Objects in a Form ????)[i] is TMyObject then
  do something ......

Thanks