Cambiar el Color de un Formulario en Runtime

[tulio]

Hola Compañeros

Les cuento que en un boton quiero cambiar el color del formulario, hacer una pausa y cambiar nuevamente el color , pero no ejecuta la orden en la cual lo quiero poner verde, solo hace la pausa y luego lo pone en negro. Me faltara alguna propiedad en el formulario ?

Código Delphi [-]
procedure TF_portero.BitBtn1Click(Sender: TObject);
 begin
  F_POrtero.Color:=CLGREEN;

  sleep(1000);

  F_POrtero.Color:=clBlack;

end;

Saludos tulio

FELICIDADES !!!!!!