Проблемы с хуком WH_KEYBOARD_LL + PeekMessage/GetMessage

KeyboardHandle:=SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHook, HInstance, 0);

function KeyboardHook(code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
msg:TMsg;
begin
 if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then exit;
 
 if code>=0 then
  begin
    if (wParam=WM_KEYDOWN) then
    begin
 
    SendMessage(FindWindow('TForm1', 'Form1'), KeyboardEvent, 0,PBDLLHOOKSTRUCT(lParam).vkCode);
 
    end;
  end;
  Result:=CallNextHookEx(KeyboardHandle, code, wParam, lParam)
 
end;
// if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then exit;
// типа если есть излишки выходи

    while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
    begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
const
  KeyboardEvent=WM_USER+557;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
 
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  function KeyboardHook(code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  end;
 
 type
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;
  PBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
 
var
  Form1: TForm1;
   KeyboardHandle: HHOOK;
implementation
 
{$R *.dfm}
 
function tform1.KeyboardHook(code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
msg:TMsg;
begin
 
 if code>=0 then
  begin
    if (wParam=WM_KEYDOWN) then
    begin
 
      memo1.Text:=PBDLLHOOKSTRUCT(lParam).vkCode.ToString;
 
    end;
  end;
  Result:=CallNextHookEx(KeyboardHandle, code, wParam, lParam)
 
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 KeyboardHandle:=SetWindowsHookEx(WH_KEYBOARD_LL, @tform1.KeyboardHook, HInstance, 0);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 if KeyboardHandle<>0 then UnhookWindowsHookEx(KeyboardHandle);
end;

 if code>=0 then
  begin
    if (wParam=WM_KEYDOWN) then
    begin
 
      {тут обрабатываю PBDLLHOOKSTRUCT(lParam).vkCode;
       и посылаю на idHTTP, жду от него ответ...
       если связь плохая спустя ~6 попыток то всё обрубается =( и этот поток больше не работает...
       чтобы всё заработало нужно опять сделать:
       KeyboardHandle:=SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHook, HInstance, 0);
       }
 
 
    end;
  end;
  Result:=CallNextHookEx(KeyboardHandle, code, wParam, lParam)

try 
//обработка
except
   KeyboardHandle:=SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHook, HInstance, 0);
end;