попробуйте вывести размер SchemeTmp.Image
например
Код:
Caption := IntToStr(SizeOf(SchemeTmp.Image));
Для 32-х битноги процессора это будет 4 байта потому что там только ссылка на объект.
Можно также открыть записаный файл в 16-ти ричном редакторе и посмотреть, что же там записалось.