Написанный проигрыватель не показывает видео файлы

// автоматом регистрируем OCX
// [url]http://raxp.radioliga.com[/url]
 
program Project1;
 
uses
  windows,
  Forms,
  sysutils,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
function ExecAndWait(FileName, Params: String): boolean;
const WinState = SW_HIDE;
var
  StartInfo: TStartupInfo; 
  ProcInfo: TProcessInformation; 
  CmdLine: ShortString;
begin 
  CmdLine := '"' + Filename + '" ' + Params; 
  FillChar(StartInfo, SizeOf(StartInfo), #0); 
  with StartInfo do 
  begin 
    cb := SizeOf(StartInfo); 
    dwFlags := STARTF_USESHOWWINDOW; 
    wShowWindow := WinState; 
  end; 
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false, 
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, 
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo); 
  if Result then 
  begin 
    WaitForSingleObject(ProcInfo.hProcess, INFINITE); 
    { Free the Handles } 
    CloseHandle(ProcInfo.hProcess); 
    CloseHandle(ProcInfo.hThread); 
  end; 
end;
 
procedure RegisterOCX(name: string);
type
  TRegFunc = function : HResult; stdcall;
var
  ARegFunc : TRegFunc;
  aHandle  : THandle;
  ocxPath  : string;
begin
 try
  ocxPath := ExtractFilePath(paramstr(0)) + name;
  aHandle := LoadLibrary(PChar(ocxPath));
  if aHandle <> 0 then
  begin
    ARegFunc := GetProcAddress(aHandle,'DllRegisterServer');
    if Assigned(ARegFunc) then
    begin
      ExecAndWait('regsvr32','/s ' + ocxPath);
    end;
    FreeLibrary(aHandle);
  end;
 except end;
end;
 
begin
  RegisterOCX('swflash.ocx');
 
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

ARegFunc := GetProcAddress(aHandle,'DllRegisterServer');
    if Assigned(ARegFunc)

type
  TRegFunc = function : HResult; stdcall;
var
  ARegFunc : TRegFunc;
  aHandle  : THandle;
  ocxPath  : string;