verschiedene Komponenten einer Form ansprechen klappt nicht

[fabiO]

Hallo,

Bei meinem Programm gibts ein Problem mit der FindComponent Funktion.
Ich habe eine MainForm ( Form1 ) in welche ich mit { $INCLUDE AndereDatei.inc } ausgelagerten Code einfüge.

So nun habe ich eine Datei, in welcher in einige Komponenten, um genau zu sein 7 TImages, ansprechen will. Dies hab ich mit einer for-schleife und einem variablen String gemacht, wobei ich eine Variable xComponent ( : TComponent ) benutze, um nen EAccessVio. abzufangen...

Delphi-Quellcode:

    for i := 1 to 7 do
    begin
      name1 := ('Image'+IntToStr(i));
      xComponent := Application.FindComponent(name1);

      if not Assigned(xComponent) then Exit;
      if ((xComponent as TImage).Hint = 'Nix') then
      begin
        (xComponent as TImage).Picture.LoadFromFile('Bild.bmp');
        (xComponent as TImage).Hint := 'Voll';
      end;
   end;

So das Problem ist nun, dass ich ja, wenn ich in dieser ausgelagerten Datei auf Komponenten des MainForms zugreifen will, immer zuerst z.B. Form1.Label1 verwenden muss.
Und hier liegt mein Problem. Ich hab schonmal probiert, TForm1.Classname vor die FindComponent Funktion zu setzen, sprich ...

xComponent := Application.FindComponent(TForm1.ClassName + '.' + name1) ... aber das hat auch nich geklappt, genauso wenig wie 'with Form1 do' davor zu setzen
kann mir da ma jemand helfen... dankeschön

Gruß fabiO