Визуальное программирование

[Цуркае Константин]

можете помочь с Shape
короче у меня есть шайп и кнопка в одной форме , они расположены на групбоксе
я задаю такое:
procedure TForm15.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ColorDialog1.Execute then
begin
Shape1.brush.Color := ColorDialog1.Color;
Shape1.pen.Color := ColorDialog1.Color;
end;
end;
затем кнопке задаю такое:
rocedure TForm15.Button1Click(Sender: TObject);
begin
form15.Color:=Shape1.brush.Color;

end;
Вот так все работает , т.е для формы там где выше написанные компоненты есть
программа работает , а как сделать чтобы для других форм работала ?

[phomm]

for i := 0 to application.componentcount-1 do 
  begin
  if (application.components[i] is tform) then
    (application.components[i] as tform).color := Shape1.brush.Color;

пробуй, я не проверял