[InnoSetup] Custom link in installer footer

custom-link.iss

#define ProjectURL "http://www.google.fr"

[CustomMessages]
english.Website=Website

[Code]
// link in installer footer
procedure URLLabelOnClick(Sender: TObject);
var
	ErrorCode: Integer;
begin
	ShellExec('open', '{#ProjectUrl}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard;
var
	URLLabel: TNewStaticText;
begin
	URLLabel := TNewStaticText.Create(WizardForm);
	URLLabel.Caption := ExpandConstant('{cm:Website}');
	URLLabel.Cursor := crHand;
	URLLabel.OnClick := @URLLabelOnClick;
	URLLabel.Parent := WizardForm;
	URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
	URLLabel.Font.Color := clBlue;
	URLLabel.Top := WizardForm.ClientHeight - URLLabel.Height - 15;
	URLLabel.Left := ScaleX(20);
end;