[Antidelphik]

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

Код:

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
 with image1.Canvas do
  begin
   brush.Color:=clBlack;
   Fillrect(Image1.ClientRect);
   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;

end;