Преобразование Inno Setup WizardForm.Color в RGB

Если я попробую это:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
DefaultGroupName=MyApp
OutputDir=.

[Code]
function ColorToRGBstring(Color: TColor): string;
var
  R,G,B : Integer; 
begin 
  R := Color and $ff; 
  G := (Color and $ff00) shr 8; 
  B := (Color and $ff0000) shr 16; 
  result := 'red:' + inttostr(r) + ' green:' + inttostr(g) + ' blue:' + inttostr(b); 
end;

procedure InitializeWizard();
begin
  MsgBox(ColorToRGBstring(WizardForm.Color),mbConfirmation, MB_OK);
end;

Я получаю: красный: 15 зеленый: 0 синий: 0
Но результат должен быть: 240 240 240 (серый)

Что случилось?

Мне нужно получить правильноеTColor и преобразовать его в цветовой код RGB.