SetSysColors gibt Fehler wieder

[Sebastian Nintemann]

Hallo, mittels SetSysColors kann ich die Windows-Farben verändern.
Die angegebenen Farben werden auch verändert, ich kriege aber immer einen Fehlecode zurück.

Code:

[b]var[/b]
  A: [b]Array[/b][1..3] [b]of[/b] integer;
  B: [b]Array[/b][1..3] [b]of[/b] TColor;
[b]begin[/b]
  A[1] := COLOR_SCROLLBAR;
  A[2] := COLOR_MENU;
  A[3] := COlOR_BACKGROUND;

  B[1] := clBLue;
  B[2] := clYellow;
  B[3] := clGreen;

  [b]if[/b] SetSysColors(3,A,B) [b]then[/b] Caption := SysErrorMessage(GetLastError);
[b]end[/b];

verändert die angegebenen Farben, ich krieg aber immer den Fehler 'Der Parameter stimmt nicht'.
Weiß einer warum?