znika kursor myszy

Witam
Mam taki problem.
Jak założę globalnego Hooka na klawiaturę to znika mi kursor myszy.

Wywołanie funkcji wygląda tak:

 MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0);

a procedura tak:

function KeyHook(Code: Integer; wParam,  lParam : Longint): Longint; stdcall;
var
  Buffer: TEventMsg;
  a:word;
  s:string;
begin
 case Code of
  HC_ACTION:
  begin
  result := 0 ;
  Buffer := PEventMsg(lParam)^;
  if Buffer.message = wm_KeyDown then
   begin
    if nagraj=1 then
     begin
      case Buffer.paraml of
       283: form1.memo1.Lines.Add('<Esc>');
              .
              .
              .
       19468: form1.memo1.Lines.Add('<Num5>');
      else
       form1.memo1.Lines.Add(chr(Buffer.paraml));
      end;
      przypisz:=0;
     end;
  end;
  end;
  else begin
   Result := CallNextHookEx(Hook, Code, wParam, lParam);
  end;
  end;
end;

Nie pomaga żadne showcursor(true);
Czasem jak dopiszę jakąś nieistotną linijkę kodu to przestaje znikać, ale po kilku kompilacjach znów znika.

Skończyły mi się pomysły. POMOCY!

wydaje mi sie, ze delphi czasami glupieje... kiedys pisalem jakis program i pamietam ze cos nie chcialo dzialac a jak sie dodalo jakas linijke nieistotnego kodu to dzialalo... a potem znowu nie...
to chyba bylo na d5. a Ty jakiego delphi uzywasz? moze ort! to skompilowac na innym kompie, systemie albo delphi...

Wygląda, że faktycznie to wina delphi, bo błędu znaleźć nie mogę. Używam Delphi 7.