ICQ API & Delphi HELP

Veche mi pisnA! Gati API-to! Ili az sam za ... kakvoto tam! ICMAPI.DLL ne mi vrashta notification:
________________________

function vUserFunc2(var iDock:integer):boolean; stdcall;
begin
Form1.Label6.Caption:='OK';
end;

.......

@vSetNotiFunction := GetProcAddress(vHandle, 'ICQAPIUtil_SetUserNotificationFunc');
@vRegNotify := GetProcAddress(vHandle, 'ICQAPICall_RegisterNotify');

.....

if @vSetNotiFunction<>nil then begin
// ICQAPINOTIFY_APPBAR_STATE_CHANGE 2
bNotiCode:=2;
bCallResult:=vSetNotiFunction(bNotiCode, @vUserFunc2);
if bCallResult then
Form1.Label5.Caption := Form1.Label5.Caption + ' + Set 2'
else Label1.Caption:='(-)';
end;
// VRASHTA OK
....

......

if @vRegNotify<>nil then begin
abEvents[0]:=0;
abEvents[1]:=1;
abEvents[2]:=2;
abEvents[3]:=3;
abEvents[4]:=4;
abEvents[5]:=5;
abEvents[6]:=6;
abEvents[7]:=7;
iCount:=sizeof(abEvents);
bCallResult:=vRegNotify(iVer, iCount, @abEvents);
if bCallResult then
Form1.Label3.Caption:='Register Notification OK'
else Form1.Label3.Caption:='(-)';
end;

// VRASHTA OK

....
__________________________________

I kato dock-na ICQ dzama v lyavo/dyasno - kiunec!!! Cheren i opushen!!!

Kakav e problemOt???

Опс, реших си въпроса...:)))