[Antidelphik]

так,а как так нарисовать? смотри, тут одна тонкость

Код:

 with Image1.Canvas do
  begin
   brush.Color:=clWhite;
   rectangle(0,Image1.Height div 2,Image1.Width div 2,0);
   brush.Color:=clBlue;
   rectangle(0,Image1.Height div 3,Image1.Width div 2,Height div 6);
   brush.Color:=clRed;
   rectangle(0,Image1.Height div 2,Image1.Width div 2,Height div 3);
  end;

видишь? я сначала задаю большой прямоугольник, потом на нем как бы рисую ещё 2 прямоугольничка, так если двигать, то двигаться то всё равно будет только 1 из них