Cambiar ancho de la barra de desplazamiento vertical

[cmfab]

Hola a todos, necesito cambiar el ancho de la barra de desplazamiento vertical, buscnado en el foro encontré este código de las API de Windows

Código Delphi [-]
procedure TForm1.cambiascroll(ancho);
begin
    Dato.cbSize:=SizeOf(Dato);
    SystemParametersInfo(SPI_GetNonClientMetrics,0,@Dato,0);
    Dato.iScrollWidth:=ancho; {Nuevo valor / New value}
    SystemParametersInfo(SPI_SetNonClientMetrics,0,@Dato,SPIF_SENDWININICHANGE);
end;

todo me funciona bien en Windows 7, pero no sucede así en Windows 8
Alguna sugerencia de lo que hay que cambiar en el código

Mil gracias por su tiempo y atenciones