Problem with the BSplayer API

[icefixer]

Hi, i am try to develop an autorun program for my DivX movies but i have a problem using the bsp.pas
my project in delphi 7 compile without error( i have enter the unit bsp.pas
'uses bsp in bsp.pas' in the project code)
but the BSplayer didn't accept the message i try to send with the following
code:

procedure TfrmBSLoader.btnPlayMovieClick(Sender: TObject);
var
bsp_handle: HWND;
i, j: Integer;
begin

ShellExecute(bsp_handle,'Open','bplay.exe',' "BSinit.bsi" ', ' ' ,SW_SHOWNORMAL) ;
bsp_handle:=FindWindow('BSPlayer',nil);
SendMessage(bsp_handle,WM_BSP_CMD,BSP_CycleSub,0);
Application.Terminate;
end;