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