[Antidelphik]

эммм...я ещё в процессе варения, вот взгляните, я всё почистила, сделала заготовку на флаг, но его ещё не красила

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with Image1.Canvas do
  begin
   brush.Color:=clGray;
   pen.color:=clBlack;
   fillrect(Image1.ClientRect);
   rectangle(0,Image1.Height div 2,Image1.Width div 2,0);
   moveto(0,Image1.Height div 6);
   lineto(Image1.Width div 2,Image1.Height div 6);
   moveto(0,Image1.Height div 3);
   lineto(Image1.Width div 2,Image1.Height div 3);
  end;

end;

вот, дальше, чтобы его накрасить, вы говорите через таймер, а это как??