C:\lazarus\KOL\kol\KOLTCPSocket.pas(292,51) Error: Wrong number of parameters specified for call to "<Procedure Variable>"
в функции
function AllocateHWnd(Method: TWndMethod): HWND;
var
 tempclass:twndclass;
 classregistered:boolean;
begin
 utilclass.hinstance:=hinstance;
 classregistered:=getclassinfo(hinstance,utilclass.lpszclassname,tempclass);
 if not classregistered or (tempclass.lpfnwndproc<>@defwindowproc) then
 begin
   if classregistered then unregisterclass(utilclass.lpszclassname,hinstance);
   registerclass(utilclass);
 end;
 result:=createwindowex(WS_EX_TOOLWINDOW,utilclass.lpszclassname,nil,
   WS_POPUP,0,0,0,0,0,0,hinstance,nil);
 if assigned(method) then setwindowlong(result,GWL_WNDPROC,longint(makeobjectinstance(method)));
end;