Criar Class (TImageSprite) Erro ao usar FOR

[TrueConan 0]

Boa Noite... estou batendo a cabeça para encontrar uma solução!!!! Já estou louco... alguem tem uma luz???Segue o Script para analise. Muito Obrigado.THeli = class(TImageSprite) // Clasevar Heli1: THeli; Heli2: THeli; Heli3: THeli; Heli4: THeli; Heli5: THeli;procedure TForm1.FormCreate(Sender: TObject);varx: integer;begin // Set up our Heli Sprite Heli1 := THeli.Create(DXSpriteEngine1.Engine);// Heli1.Image := Form1.DXImageList1.Items.Find('imgHeli'); <-- Funciona for x:=1 to 5 dobegin (FindComponent('Heli' + IntToStr(x)) as THeli).Image := DXImageList1.Items.Find('imgHeli'); < -- Erroend;end;Quero usar um For para não ter que ficar digitando a mesma coisa. Porem mostra erro ???Ja tentei por TImageSprite no lugar de THeli porem mesmo assim não me permite puxar o .ImageError:Incompatible types: 'THeli' and 'TComponent';

[marcio.theis 3]

Nunca mexi com este tipo de componente, mas tente alg do tipo:

 

THeli(FindComponent('Heli' + IntToStr(x))).Image:=DXImageList1.Items.Find('imgHeli');