[NumLock]

Код:

var
  lbmp: TList;
  bmp: TMyBitmap;
begin
  lbmp:=TList.Create;

  bmp:=TMyBitmap.Create;
  bmp.LoadFromFile('1.bmp');
  bmp.UserID:=1248;
  lbmp.Add(bmp);

  bmp:=TMyBitmap.Create;
  bmp.LoadFromFile('2.bmp');
  bmp.UserID:=5555;
  lbmp.Add(bmp);
  
  ShowMessage(IntToStr(TMyBitmap(lbmp[0]).UserID));
  ShowMessage(IntToStr(TMyBitmap(lbmp[1]).UserID));
end;

ну и не забываем про уничтожение объектов!

добавлено позже:
упс, пока перекуривал...)