Problem mit FindComponent

[hmbg]

Ich hab da so'n problemchen
Wenn ich diesen Quelltext

Delphi-Quellcode:

procedure build(x,y,speednr:integer;Sender:TObject);
 var a:TComponent;
  begin
   a:=FindComponent('SpeedButton'+inttostr(speednr));
   TSpeedButton(a).Glyph.LoadFromFile('metalol.bmp');
   speednr:=speednr+1;
   a:=FindComponent('SpeedButton'+inttostr(speednr));
   TSpeedButton(a).Glyph.LoadFromFile('metalor.bmp');
   speednr:=speednr+19;
   a:=FindComponent('SpeedButton'+inttostr(speednr));
   TSpeedButton(a).Glyph.LoadFromFile('metalul.bmp');
   speednr:=speednr+1;
   a:=FindComponent('SpeedButton'+inttostr(speednr));
   TSpeedButton(a).Glyph.LoadFromFile('metalur.bmp'); 
  end;

compiliere, kommt die fehlermeldung: unbekannter bezeichner 'FindComponent'
Und in einer anderen procedure kommt die fehlermeldung nicht.
Hab ich irgendwas verplant? :wiejetzt:

[Dax]

Ja: FindComponent ist eine Methode von TForm.

[hmbg]

Und wie kann ich das machen, dass das trotzdem funktioniert?

[Luckie]

Würdest du bitte gemäß den Forenregeln dein Toopic aussagekräftiger gestallten? Ein "Problem" haben wohl die meisten, die hier posten.

[hmbg]

Sorry! :oops:

[Dax]

Du rufst das FindComponent des FOrms auf, auf denen sich die SpeedButtons befinden.

[Meflin]

oder packs zwischen with form1 do begin...end

[hmbg]

Danke, klappt jetzt