[Помогите!] ImageList и Image

[Steam~]

вообщем дело таково
у меня имеются ряд Имейгов , их названия записаны в стринглисте
надо по циклу из ИмейгЛиста раздать всем Имейгам картинки

[VeTaL_UA]

ImageList1.GetBitmap(0,Image1.Picture.Bitmap);

Не думаю, что у тебя на форме 100500 Image'ов, поэтому можно и без цикла вручную пройтись, передавая индекс картинки

[Steam~]

спс , но мне надо именно по циклу)
вот как Image1 заменить названием из стринглиста?

[R.A.Z.O.R.]

function GetImages(Count: integer; { Количество картинок (1,2,3,...) }
                           Name: string; { Общее начало имени (Image,Img,...) }
                           ImageList: TImageList { ImageList });
var Img: TComponent;
     i: integer;
begin
   for i := 1 to Count do
   begin
      Img := FindComponent(Name+IntToStr(i)); // Получаешь объект по имени
      if Img <> nil then // если объект получен, то
      begin
         ImageList.GetBitmap(i-1,(Img as TImage).Picture.Bitmap);
      end;
   end;
end;

А если попробовать так?