Hola cmfab.
Probé con Delphi 7 y Windows 8 y funciona correctamente, este es el código de prueba:
Código Delphi
[-]
procedure SetScrollBarSize(const aWidth: Integer);
var
NCM: NONCLIENTMETRICS;
begin
NCM.cbSize := SizeOf(NCM);
SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NCM, 0);
NCM.iScrollWidth := aWidth;
SystemParametersInfo(SPI_SETNONCLIENTMETRICS, 0, @NCM, SPIF_SENDWININICHANGE);
end;
Saludos