ListBox в графическом режиме присваивает всем item последнее загруженное изображение. Как от этого избавиться?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  bmp:TBitmap;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   bmp:=TBitmap.Create;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   bmp.LoadFromFile('000.bmp');
   ListBox1.Items.Add('Раз');
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
jpg:TJPEGImage;
begin
   jpg:=TJPEGImage.Create;
   jpg.LoadFromFile('000.jpg');
   bmp.Assign(jpg);
   jpg.Free;
   ListBox1.Items.Add('Два');
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
 
var
brect:TRect;
scale:double;
TopOffset,LeftOffset:integer;
 
begin
//Вычисляем пропорции изображения в списке
   if bmp.Height > bmp.Width then begin
      scale:=80 / bmp.Height;
      LeftOffset:=round((ListBox1.ItemHeight-bmp.Width*scale) / 2);
      TopOffset:=5; end else begin
      scale:=80 / bmp.Width;
      TopOffset:=round((ListBox1.ItemHeight-bmp.Height*scale) / 2);
      LeftOffset:=5;
      end;
 
//Очищаем кусок канвы для рисования
  (Control as TListBox).Canvas.FillRect(Rect);
//Рассчитываем место, куда будем выводить картинку
  brect:=Bounds(Rect.Left+LeftOffset,Rect.Top+TopOffset,
  Round(bmp.Width*scale),Round(bmp.Height*scale));
//Выводим картинку с подгонкой пропорций
  (Control as TListBox).Canvas.StretchDraw(brect,bmp);
//Выводим текст
  (Control as TListBox).Canvas.TextOut(Rect.Left+135,Rect.Top+5,ListBox1.Items[index]);
end;
end.

TMyModel = class
  text : string;
  bitmap : TBitmap;
  color: TColor;
end;
 
TMyList = class(TObjectList<TMyModel>)
...
end;