Delphi графика, ошибка Project1, что это?

[Antidelphik_)]

Здравствуйте форумчане, у меня следующая проблема, есть следующий код

procedure TForm1.Button1Click(Sender: TObject);
procedure Flag (x,y:integer);
 begin
  with image1.Canvas do
   begin
    pen.color:=clBlack;
    brush.Color:=clWhite;
    rectangle(x,y,x+image1.Width div 2,y-image1.Height div 6);
   end;
 end;
var i,j,k:integer;
begin
 for i:=0 to image1.Width div 2 do
 for j:=image1.Height div 2 downto 0 do
   begin
     Flag(i,j);
     for k:=image1.Height div 6 to image1.Height div 3 do
       brush.Color:=clBlue;
     for k:=image1.Height div 3 to image1.Height div 2 do
       brush.Color:=clRed;
   end;


end;

вроде бы всё нормально, жму F9 - запускается, но потом, когда жму кнопку для запуска анимации на форме появляется сообщение со следующей ошибкой

Project Project1 raised exception class EInvalidOperation with message 'can only modifi an image if it contains a bit map'.

Process stopped.  Use Step or Run to continue.

что это и как оно исправляется?

[p51x]

Вам же написали: либо не изменяйте картинку, либо грузите битмап.