[Investment]

A lo mejor el Truco 191 de Trucomania te sirve. Yo no le he probado pero te lo pongo:

[191] Cambiar el grosor de las barras de scroll de Windows

procedure TForm1.Button2Click(Sender: TObject);
var 
   Dato: TNonCLientMetrics;
begin 
  Dato.cbSize:=SizeOf(Dato);
  SystemParametersInfo(SPI_GetNonClientMetrics,0,@Dato,0);
  Dato.iScrollWidth:=30; {Nuevo valor / New value}
  SystemParametersInfo(SPI_SetNonClientMetrics,0,@Dato,SPIF_SENDWININICHANGE);
end;

¡Ah!, con SPIF_SENDWININICHANGE el cambio lo hacemos sin grabarlo en la configuración del usuario en curso. Si quieres que el cambio sea permanente, pon SPIF_UpdateIniFile