Probleme mit FindComponent

[Nicolai1234]

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;


...


type TPerson = record
x, y, zielx, ziely: integer;
ks: boolean;
end;

...

var person1,person2:tperson;

...

procedure weiter;
var P{erson}: integer;
begin
for p := 1 to 2 do
        begin
        if not (person1.zielx = (FindComponent('person'+ inttostr(p)) as TPerson).x) then //weitere Anweisung

Ich habe in meinem QT einmal person1 zu stehen! Etwas weiter hinten, wollte ich zu testzwecken das person1 durch fincomponent ersetzen, aber er zeigt mir an, dass es ein "undefinierter Bezeichner" ist! Worankann dass liegen?
Weiß das einer von euch

[sakura]

FindComponent ist eine Methode, welche durch TComponent zur Verfügung gestellt wird Deine Prozedure weiter ist nicht Teil eines Objectes welches von TComponent abgeleitet wurde und kennt somit auch den Bezeichner FindComponent nicht.

......

[Nicolai1234]

Und wie kann ich mein Problem lösen?

[Smokey]

in dem du ein array benutzt 8)