Рандомно в Timage грузить картинки из TimageList

[Человек_Борща]

всем привет!

проблема:
Есть TimageList в 25 картинками (формат ICO).
Есть 1 Timage.

Как по таймеру в Timage рандомно подгружать картинки из TimageList?

Пытаюсь так:

procedure TTipsForm.TipsImgsTimerTimer(Sender: TObject);
begin
   Randomize;
   MainImage2.Picture.Icon:=Random(TipsImgList.Items[TipsImgList.Count-1]);
end;

и даже так:

TipsImgList.Draw(MainImage2.Canvas,0,0,Random(TipsImgList.Items[TipsImgList.Count-1]));

не фурычит.. как правильно?

[Valio]

Я не работал со всем этим барахлом но как минимум надо както так:

MainImage2.Picture.Icon := TipsImgList.Items[Random(TipsImgList.Count-1)];

[Человек_Борща]

Нет не работает. пишет что типы несовпадают.

[Valio]

У класса TImageList есть методы:

procedure GetBitmap (Index: Integer; Image: TBitmap);

procedure Getkon (Index: Integer; Image: TIcon);

Мне лень запускать делфи, но вроде это то...

[AlDelta]

procedure TForm2.Timer1Timer(Sender: TObject);
var a:integer;
begin
  randomize;
  a:=random(ImageList1.Count);
  Image1.Canvas.Brush.Color:=clWhite;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  ImageList1.Draw(Image1.Canvas,0,0,a);
  Image1.Refresh;
end;

Не очень правильное решение, но работает

[Человек_Борща]

Спасибо это работает!

[dmitriegorovih]

Randomize;
   TipsImgList.GetIcon(random(TipsImgList.Count),MainImage2.Picture.Icon);

вот так тож работает