Nur als Ansatz:
Delphi-Quellcode:
if (Item.Caption = '1') then bmpImage.Assign(Punkt1.Picture.Bitmap) else
if (Item.Caption = '2') then bmpImage.Assign(Punkt2.Picture.Bitmap) else
if ...
Vielleicht wäre hier ein Array "Punkt: array[1..5] of TBitmap;" besser geeignet.
roga