findcomponent и tedit

[one1991]

Объект прорисовывается на форме проверял имена, все так как задано только вот не могу вспомнить как я делал раньше, находил объект и первый номер до которого дойдет мой персонаж, изчезал и становился неактивным, просто не могу вспомнить как я это делал -(

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    medved: TRxGIFAnimator;
    Timer2: TTimer;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  img: TRxGIFAnimator;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_LEFT then
  begin
    medved.Left:=medved.Left-4;
    medved.Animate:=True;
  end;
if key=VK_RIGHT then
  begin
    medved.Left:=medved.Left+4;
    medved.Animate:=True;
  end;
if key=VK_DOWN then
  begin
    medved.Top:=medved.Top+4;
    medved.Animate:=True;
  end;
if key=VK_UP then
  begin
    medved.Top:=medved.Top-4;
    medved.Animate:=True;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
medved.Animate:=false;
if (medved.Left>=550) and (medved.Left<=638) then
  begin
    Image1.Picture.LoadFromFile('imgs/fon2.jpg');
    medved.Left:=56;
  end;
if (medved.Left<=50) and (medved.Left>=0) then
  begin
    Image1.Picture.LoadFromFile('imgs/fon1.jpg');
    medved.Left:=56;
  end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
i:integer;
begin
    {if medved.Left=img.left then
      begin
      Timer2.Enabled:=False;
        Showmessage('наш персонаж нашел клубнику');
      end; }
    for i:=1 to i*2 do
    begin
  img:=TRxGIFAnimator.Create(nil);
  img.Name:='straw'+inttostr(i);
  img.Top:=i*10;
  img.Left:=i*20;
  form1.caption:=IntToStr(i);
    end;
  img.Image.LoadFromFile('imgs/strawberry.gif');
  img.AutoSize:=true;
  img.Parent:=Form1;
end;

end.

[one1991]

люди мне кто-нибудь поможет с поиском компонентов???

[one1991]

Вот листинг моего кода компонент находится и даже делает с ним все что нужно только вот действие происходит с последним появившимся объектом на форме, а мне бы желательно чтобы с первым встречающимся на пути динамически созданным объектом происходило действие:

img.FindComponent(Name+inttostr(i));
if img.Left=medved.Left then
  begin
    img.Visible:=False;
  end;

Тоесть независимо от значения переменной i любой который только первый попался объект (динамический) чтобы с ним происходило действие.
Сейчас у меня код выглядит так:

begin
img.FindComponent('Straw'+inttostr(i));

img.ShowHint:=True;
img.Hint:=img.Name;
if (medved.Left>=img.Left) and  (medved.Left<=img.Left+img.Width) then
  begin
    img.Visible:=False;
  end;
end;

Но действие от этого не поменялось -(