Problema con PageControl

[jesconsa]

Hola de nuevo. He ido ejecutando paso a paso y cuando el Tree rellena los nodos se queda indefinidamente en su rutina:

Código Delphi [-]
function MsgHookProc(Code: Integer; CurrentProcess: Cardinal; HookStruct: PCWPStruct): integer; stdcall;
begin
  case HookStruct.Message of
  WM_WINDOWPOSCHANGING, WM_WINDOWPOSCHANGED:
     begin
       if Assigned(FocusGrid) then
         FocusGrid.MoveFocusHelper;
     end;
  end;

  Result := CallNextHookEx(MsgHook, Code, CurrentProcess, LParam(HookStruct))
end;

Es esto normal?.....Parece como si el Tree acaparara (sin yo hacer nada en codigo) todo el tiempo del procesador o algo parecido y asi no dejara que se pinta bien el PageControl...

Saludos
Jesus