[Aristarh Dark]

Добавил 1 строчку:

Код:

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);
    Application.ProcessMessages;
   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;