[wdmitriy]

[Setup]
WizardImageFile=Fon.avi
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: IsPicture.dll; Flags: dontcopy
Source: Fon.avi; DestDir: {tmp}; Flags: dontcopy;
[code]
//-----------------------------------------
procedure Initialize(AhWnd,BhWnd: hWnd;Color:Tcolor;bAlpha:Integer;Flag:Boolean);external 'Initialize@files:IsPicture.dll stdcall delayload';
//-----------------------------------------
// AhWnd - форма, которая будет сверху
// BhWnd - форма, которая будет снизу
// Color - цвет,который будет вырезан из формы, которая сверху
// bAlpha - степень прозрачности - от 0 до 255 для формы,которая сверху
// Flag - значения - True-будет применена прозрачность false- вырезание цвета
//-----------------------------------------
// Примеры:
// Initialize(WizardForm.Handle,MainForm.Handle,$0f0f0f,130,false);
// будет вырезан цвет $0f0f0f из WizardForm (флаг false)
//-----------------------------------------
// Initialize(WizardForm.Handle,MainForm.Handle,$0f0f0f,130,True);
// Будет применена прозрачность 130 к WizardForm (флаг True)
//-----------------------------------------


procedure Deinitialize;external 'Deinitialize@files:IsPicture.dll stdcall delayload';

const
// цвета придется тщательно подбирать.
// Если Сглаживание шрифтов в системе отключено,
// то нужно его включить на время настройкт инсталлятора.
TfonColor = $0f0f0f; // Цвет фона $0f0f0f
TfontColor = $E5E5E5; // Цвет текста $E5E5E5


procedure InitializeWizard();
var s:String;
begin
//-----------------------------------------
// нижеприведенный код очень желателен для наличия.
WizardForm.Color:=TfonColor;
WizardForm.WelcomePage.Color:=WizardForm.Color;
WizardForm.FinishedPage.Color:=WizardForm.Color;
WizardForm.InnerPage.Color:=WizardForm.Color;
WizardForm.DirEdit.Color:=WizardForm.Color;
WizardForm.ReadyMemo.Color:=WizardForm.Color;
WizardForm.MainPanel.Color:=WizardForm.Color;
//-----------------------------------------
//-----------------------------------------
WizardForm.Font.Color:=TfontColor;
WizardForm.Font.Size:=9;
WizardForm.Font.Name:='Georgia';
WizardForm.Font.Style := [fsBold, fsItalic];
//-----------------------------------------
//-----------------------------------------
WizardForm.PageNameLabel.Font := WizardForm.Font;
WizardForm.WelcomeLabel1.Font := WizardForm.Font;
WizardForm.WelcomeLabel1.Font.Size:=14;
WizardForm.FinishedHeadingLabel.Font := WizardForm.Font;
WizardForm.FinishedHeadingLabel.Font.Size:=14;
//-----------------------------------------
//-----------------------------------------
WizardForm.WizardBitmapImage.Parent := MainForm;
WizardForm.WizardBitmapImage.Align := alClient;;
WizardForm.WizardBitmapImage2.Hide;
//-----------------------------------------

//-----------------------------------------
// указываем формы, в данном случае WizardForm и MainForm
// выбираем режим работы с помощью флага:
//True-будет применена прозрачность к WizardForm false- вырезание цвета.
//соединены формы будут в длл-ке
Initialize(WizardForm.Handle,MainForm.Handle,TfonColor,130,false);
//-----------------------------------------
// не забываем показать MainForm
MainForm.Show;
//-----------------------------------------
end;

procedure DeinitializeSetup();
begin
//-----------------------------------------
// не забываем правильно завершить функцию,
// во избежание ошибок при закрытии
Deinitialize;
//-----------------------------------------
end;

Ну и вчем ошибка я ничего не добовлял кроме того что заменил Fon.bmp на Fon.avi