komponente suchen über alle Forms und Datenmodule

[Schuster]

Hallo,

habe wiedermal ein Problem.

Wie kann ich eine Bestimmte Komponente finden.

Z.b.
eine Komponente die in einem Datenmodul sitzt sucht eine and. Komponente die irgendwo in einem
Formular sitzt aber die Formularnamen nicht namentlich bekannt sind.

Habs so probiert funkt aber nicht:

Delphi-Quellcode:

      for x:=0 to Application.ComponentCount-1 do
      if application.Components[x] is TMaxMySqlGrid then   //Prüfen welche v. meinen Grid sind
      begin
         if (application.Components[x] as TMaxMySqlGrid).Datasource.Name = Self.name then
         begin
           result:= application.Components[x]; //.Name
           exit;
         end
         else
           result:= nil;
      end;