var
oldMetrics: NONCLIENTMETRICS; 
function SetScrollbarWidth(NewWidth: Integer): Boolean;
var
  currentMetrics: NONCLIENTMETRICS;
begin
  Result:= FALSE;
  oldMetrics.cbSize:= SizeOf(oldMetrics);
  if not SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(oldMetrics), 
    @oldMetrics, SPIF_SENDCHANGE) then 
  Exit;
  currentMetrics:= oldMetrics;
  currentMetrics.iScrollWidth:= NewWidth;
  Result:= SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(currentMetrics),
    @currentMetrics, SPIF_SENDCHANGE);
end;

SetScrollbarWidth(18 ) ; // Width=18

SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(oldMetrics),
@oldMetrics, SPIF_SENDCHANGE);

@DelphiExpert: Berarti komponen skin yang anda pake kurang canggih :lol: Harusnya dia membaca global windows parameters settings dalam menentukan ukuran control scrollbarnya hehehe...