Если файлы Bmp одинакового размера то можно ещё попробовать так обьявить структуру:
Код:
Const
R = 100433; // Размер рис.
Type
MyStrukt = Record // Наша структура для записи в свой файл
S: String[32]; // имя рисунка
n: Integer; // ещё чтото
// и т. д. скоко надо параметров к рисунку.
Bmp: Array [0..R] of Byte; // массив с байтами рисунка.
end;
Вот так считываем из структуры на Image нашу картинку
Код:
var
Ms: TMemoryStream;
Str: MyStrukt;
begin
Ms:= TMemoryStream.Create;
Ms.Write(Str.Bmp, R);
Image1.Picture.Bitmap.LoadFromStream(Ms);
Ms.Free;
end;
Так же массив из MyStrukt можно легко сохранить в файл и читать от туда.
Записать рис. в нашу структуру тоже легко. Просто переписываем побайтно из рис. в массив Bmp: Array [0..R] of Byte;
Дома буду соченю пример если непонятно а то щяс на работе.