[Mealgay]

Необходимо сделать что бы в листе рисовались разные Bitmap'ы вопрос как?. Помогите пожалуйста.

Вот мой Код(не ругайте только):

Код:

var
  Bmp: array[1..3] of TBitmap;
  i: Integer; 

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do
  begin
   FillRect(Rect);
   Draw(Rect.Left+2,Rect.Top+2,Bmp[1]); //<--Вот не знаю что тут сделать.
   TextOut(Rect.Left+2+32,Rect.Top+36 div 2,ListBox1.Items[index]);
  end;
end;

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 for i:=1 to 3 do
  begin
   Bmp[i] := TBitmap.Create;
   Bmp[i].LoadFromFile(ExtractFilePath(Application.ExeName)+
   'Data\Objects_'+IntToStr(i)+'.bmp');
  end;
end;

Заранее большое спасибо!!!!