Картинка в TBitBtn

Здравейте някой да знае метод как да взема от ImageList някоя картинка и да я сложа на TBitBtn
Пробвах няколко вариянта но нищо :
ImageList1.DrawOverlay( Btn.Glyph.Canvas, Btn.Glyph.Canvas.ClipRect.TopLeft, Btn.Glyph.Canvas.ClipRect.BottomRight, 0, 0 );
Този ми се стори най логинчен но пак нищо

Благодаря предварително !

Трябва да направиш нещо такова:

B := TBitmap.Create;

try

  il.GetBitmap(idx, B);

  Button.Glyph.Assign(B);

finally

  B.Free;

end;

Ето друг вариант
ImageList1.GetBitmap(1,BitBtn1.Glyph);

Ако глифа няма да се сменя повече - може и така

Не пречи да си го сменя когато си поиска, стига да знае поредния номер на изображението в списъка на ImageList (1 e първия номер в списъка на ImageList, просто не съм го написал, а той трябва да се сети).

Не, напротив - пречи. Пъхни няколко картинки в един ImageList и пробвай следния код:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  ImageList1.GetBitmap(BitBtn1.Tag, BitBtn1.Glyph);

  BitBtn1.Tag := (BitBtn1.Tag + 1) mod ImageList1.Count;

end;

След първото GetBitmap глифа повече не се сменя.

Започва да става дискусия
Това оправя нещата
BitBtn1.Glyph:=nil;
......

Тамън да стана дискусия и тя взе, че свърши
Да, това оправя нещата

Хе хе евала момчета благодаря за отговорите !!!!! :))