ListBox строки и картинки

[sxcine]

добрый вечер
на форме есть листбокс, кнопка, по нажатию которой добавляется строка в этот листбокс и список картинок размером 20х20 в ImageList.
как сделать так, чтобы при добавлении строки каждый раз была разная картинка?

[Delphi_ProGer]

Копайте в стороноу события OnDrawItem.
Картинки выводите рандомно.

[sxcine]

Сообщение от Delphi_ProGer

Копайте в стороноу события OnDrawItem.
Картинки выводите рандомно.

я вывожу их щас, но после добавления следующей строки все предыдущие картинки становятся как и текущая.

var
  Form1: TForm1;
  filen: string;

implementation

{$R *.dfm}

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Bitmap: TBitmap;
  Offset: Integer;
  BMPRect: TRect;
begin
  with (Control as TListBox).Canvas do
  begin
    FillRect(Rect);
    Bitmap := TBitmap.Create;
    Bitmap.LoadFromFile(FileN);
    Offset := 0;
    if Bitmap <> nil then
    begin
      BMPRect := Bounds(Rect.Left+2, Rect.Top+2,
      (Rect.Bottom-Rect.Top-2)*2, Rect.Bottom-Rect.Top-2);
      BrushCopy(BMPRect,Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height),
      Bitmap.Canvas.Pixels[0, Bitmap.Height-1]);
      Offset := (Rect.Bottom-Rect.Top+1)*2;
    end;
    TextOut(Rect.Left+Offset, Rect.Top, ListBox1.Items[index]);

    Bitmap.Free;
  end;
end;

procedure Wr(fn,text: string);
begin
filen := fn;
form1.ListBox1.Items.Add(text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 wr('Безымянный.bmp','пыщ пыщ');
 wr('Безымянный1.bmp','fffuuccckk');
end;

[Аватар]

Нужно в ListBox1DrawItem имя загружаемого файла формировать в зависимости от итема. Можно от ItemIndex. Можно от значения записанного в Items.Objects, но тогда итемы добавлять не методом Add, а методом ListBox.AddItem или ListBox.Items.AddObject