[Antidelphik]

Я тут всё таки ещё кое что свое набросала

Код:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

procedure Flag (k,x,l,y:integer; c:TColor);
begin
 with Image1.Canvas do
 begin
  brush.Color:=c;
  rectangle(k,x,l,y);
 end;
end;

var c:TColor; i:integer;
begin
 with Image1.Canvas do
  begin
   brush.Color:=clBlack;
   fillrect(Image1.ClientRect);
   c:=clWhite;
   Flag (0,Image1.Height div 6,Image1.Width div 2, 0, c);
   c:=clBlue;
   Flag (0,Image1.Height div 3, Image1.Width div 2, Image1.Height div 6, c);
   c:=clRed;
   Flag (0,Image1.Height div 2, Image1.Width div 2, Image1.Height div 3, c);
  end;
  for i:=0 to Image1.Width div 2 do
   begin
    c:=clWhite;
    Flag (i,Image1.Height div 6,Image1.Width div 2 + i, 0, c);
    application.ProcessMessages;
    sleep(10);
    c:=clBlue;
    Flag (i,Image1.Height div 3,Image1.Width div 2 + i, Image1.Height div 6, c);
    application.ProcessMessages;
    sleep(10);
    c:=clRed;
    Flag (i,Image1.Height div 2, Image1.Width div 2 + i, Image1.Height div 3, c);
    application.ProcessMessages;
    sleep(10);
   end;

по горизонтали едет =) сделала всё таки так как говорила
пробовала добавить for для того чтобы по вертикали тоже шел,но не идет (