How to reach a graphic field without using a TDBImage

Problem/Question/Abstract:

How to reach a graphic field without using a TDBImage

Answer:

var
  Pic: TPicture;
begin
  Pic := TPicture.Create;
  dm.tbDeviceTypes.first;
  while not dm.tbDeviceTypes.EOF do
  begin
    Pic.Assign(dm.tbDeviceTypesFreePic);
    ImageList1.AddMasked(Pic.BitMap, ClWhite);
    dm.tbDeviceTypes.next;
  end;
end;