[Code]
procedure InitializeWizard;
var
  R: TRect;
begin
  with WizardForm.WizardBitmapImage.Bitmap do
  begin
    Canvas.Brush.Color := clBlack;
    R.Left := 0;
    R.Top := 0;
    R.Right := Width;
    R.Bottom := Height;
    Canvas.FillRect(R);
  end;
end;