Опять же графика!, Сохранение изображения Опции

[-=АнЮтА=-]

Пы талась проявить фантазию, но очень осторожно и с переменным успехом. Хочу так сохранить рисунок по кускам, но в два разных файла. Из одного файла прочитать оба кусочка записанных боюсь мозгофф пока не хватит. Не могу сообразить где ошибка, может стоит с разными переменными попробовать? Если тока один кусочек копировать - работает, размер кусочка проверяла - меньше 64 кб. Подскажите пожалуйста
Написала такую процедуру:

Procedure Copy_image;
    var size:word;
        buffer,:pointer;
        f:file;
begin
        size:=imagesize(200,20,400,220);  {копирую первый кусочек}
        getmem(buffer,size);
        getimage(200,20,400,220,buffer^);
        assign(f,'pic.dat');
        rewrite(f,size);
        blockwrite(f,buffer^,1);
        close(f);

        size:=imagesize(400,220,630,435);     {копирую второй}
        getmem(buffer,size);
        getimage(400,220,630,435,buffer^);
        assign(f,'pic1.dat');
        rewrite(f,size);
        blockwrite(f,buffer^,1);
        close(f);

        assign(f,'pic.dat');                    {воспроизвожу первый}
        reset(f,1);
        getmem(buffer,filesize(f));
        blockread(f,buffer^,filesize(f));
        close(f);
        putimage(200,20,buffer^,normalput);

        assign(f,'pic1.dat');                     {  воспроизвожу второй}
        reset(f,1);
        getmem(buffer,size);
        blockread(f,buffer^,filesize(f));
        close(f);
        putimage(400,220,buffer^,normalput);
             end;

[Lapp]

Во-первых, ты берешь память и ни разу не освобождаешь ее - это плохо.
Во-вторых, записываешь ты правильно (делаешь файл с длиной записи, равной длине картинки, а потом записываешь одну запись). А вот читаешь странно. Длина записи в файле у тебя равна длине файла, и ты пытаешься считать записей столько, какая длина файла. Уж либо делай длину записи при открытии файла равной одному байту, либо считывай одну запись (как записываешь).

Добавлено:
Гоп - стоп.. что-то я напутал сослепу.. Ты открываешь файл с длиной записи 1. Видно, не туда посмотрел. Извиняюсь.