Вопрос Работа с ISWin7.dll

[oxionex]

Всем привет. Решил добавить прозрачность в инсталл, но столкнулся со следующей проблемой:

Ссылка на сайт и BeveledLabel не отображаются так, как нужно. Может кто подсказать, как исправить? Кусок кода прилагаю ниже. Заранее спасибо!

var
  InfoButton: TNewButton;
  PublisherLink: TLabel;

/////////////////////////////////////////////
procedure InfoButtonClick(Sender: TObject);
begin
  MsgBox(ExpandConstant('{cm:InfoButtonText}'), mbInformation, MB_OK);
end;

/////////////////////////////////////////////
procedure PublisherLinkClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', ExpandConstant('{#MyAppURL}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

/////////////////////////////////////////////
procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);
external 'iswin7_add_glass@files:iswin7.dll stdcall';

procedure iswin7_add_button(Handle:HWND);
external 'iswin7_add_button@files:iswin7.dll stdcall';

procedure iswin7_free;
external 'iswin7_free@files:iswin7.dll stdcall';

/////////////////////////////////////////////
procedure RedesignWizardForm;
begin
  InfoButton := TNewButton.Create(WizardForm);
  with InfoButton do
  begin
    Parent := WizardForm;
    Caption := ExpandConstant('{cm:InfoButton}');
    SetBounds(ScaleX(10), ScaleY(327), ScaleX(75), ScaleY(23));
    OnClick := @InfoButtonClick;
  end;
  PublisherLink :=TLabel.Create(WizardForm);
  with PublisherLink do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(95), ScaleY(333), ScaleX(75), ScaleY(23));
    Caption := ExpandConstant('{#MyAppURL}');
    Cursor := crHand;
    Color:=$FFFFFF;
//    Font.Color := clBlue;
    ShowHint := true;
    Hint := ExpandConstant('{cm:Community}');
    OnClick := @PublisherLinkClick;
    transparent := true;
  end;
end;

/////////////////////////////////////////////
procedure InitializeWizard();
begin
//  SetCustomMessages;
//
  RedesignWizardForm;

  // Необходимо добавлять каждую кнопку расположенную на стекле
  // до инициализации стекла для того что бы не было дыр ))
  iswin7_add_button(WizardForm.BackButton.Handle);
  iswin7_add_button(WizardForm.NextButton.Handle);
  iswin7_add_button(WizardForm.CancelButton.Handle);
  iswin7_add_button(InfoButton.Handle);
  // Параметр True не трогать он для htuos ))
  iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True);
end;

/////////////////////////////////////////////
procedure DeinitializeSetup();
begin
  iswin7_free;
end;