const
  NumberOfBirds=20;

type

  TBirds = class(TGraphicControl)
  private
  protected
    procedure Paint; override;
    procedure Find;
  public
  end;

procedure TBird.Find;
var i: Integer;
begin
  for i:=0 to Parent.ComponentCount do
    if Parent.Components[i]=TBird then //Funktioniert leider nicht
    begin
    //Hier kommt noch was
    end;
end;


//Im Hauptformular
procedure TFrmEBirds.FormCreate(Sender: TObject);
var i,x,y: Integer;
begin
  Randomize;
  for i := 0 to NumberOfBirds do
  begin
    Birds[i]:=TBird.Create(self);
    Birds[i].Parent:=self;
    x:=Random(self.Width);
    y:=Random(self.Height);
    Birds[i].Left:=x;
    Birds[i].Top:=y;
  end;
end;