Проект "Розфарбовка"

procedure TForm1.Shape4MouseDown

begin

if ColorDialog1.execute then Shape4.Brush.color:=ColorDialog1.Color;

end;