Ага, это уже "ближе к телу".
Код:
Materials.Image := TBitMap.Create;
Materials.Image.Assign(Image1.Picture.Bitmap);
Копирование картинки из Timage на форме в TBitmap структуры.
Только надо не забыть освободить память (Materials.Image.Free) тогда, когда рекорд уже не будет нужен.