Ayuda con código en delphi

[nico.white]

Hola amigos buenas tardes, tengo el siguiente problema:

Eh creado un botón y al lado un shape... lo que quiero q haga es que al pulsar el boton cambie de color el shape.

lo hace pero el form cambia su color a negro la verdad nose donde esta el problema. pq solo tengo eso en el código.

desde ya muchas gracias por la pronta respuesta

Código Delphi [-]
begin
  color := random(7);
  case ( color ) of
    1 : shape1.brush.color := clRed;
    2 : shape1.brush.color := $000080FF;
    3 : shape1.brush.color := clYellow;
    4 : shape1.brush.color := clLime;
    5 : shape1.brush.color := clGreen;
    6 : shape1.brush.color := clBlue;
    7 : shape1.brush.color := clNavy;
  end;
end;