var image:array[0..images]of tbitmap; //Банк картинок
...
procedure DrawElement(id:byte; //Номер выводимой в буфер картинки из банка картинок
   x,y:integer; mode:cardinal=SRCCOPY); //Координаты и режим копирования; режим по-умолчанию просто копирование
begin
   bitblt(buffer.Canvas.Handle,x,y, //Указатель на буфер и координаты вывода
          image[id].width,image[id].height, //Размеры картинки
          image[id].Canvas.Handle,0,0,mode); //Указатель на картинку, координаты начала на ней и режим копирования
end;

procedure DrawMask(image,mask:byte;x,y:integer);
begin
   drawelement(mask,x,y,SRCAND);
   drawelement(image,x,y,SRCPAINT);
end;