Глобальный Хук на клавиатуру и MessageDlg

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
s, a: string;
begin
if Code >= 0 then begin
   result := 0;
   msg := Pointer(LParam);
   with Form1 do begin
     if msg.message = WM_KEYUP then         // WM_KEYUP для предотвращения залипания клавиш
     begin
       s:= GetStrbyKey(PEVENTMSG(lParam)^); // Преобразование нажатых клавиш в нормальный вид
       label8.Caption:= s;
       Label4.Caption:= Inttostr(Skorost());
       if Skorost() >= 50 then
       begin
         memo1.Text:=memo1.Text + s;
         if Length(memo1.Text) >= 10 then
         begin
          Application.Restore;
           a:= memo1.Text;
           label1.Caption:= a;
           MessageDlg(a, mtInformation, [mbOk], 0); // <== ВОТ ТУТ ЧТО-ТО НЕ ТО!
           memo1.Clear;
         end;
       end else
       begin
         memo1.Clear;
         memo1.Text:= s;
       end;
     end;
   end; //with
end else
   result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

function KeyHookFunc(Code, VirtualKey, KeyStroke: integer): LRESULT; stdcall;
var
  msgl: PEVENTMSG;
begin
  Result:=0;
  if Code=HC_NOREMOVE then Exit;
  Result:=CallNextHookEx(hK,Code,VirtualKey,KeyStroke);
  if Code<0 then Exit;
  if (Code=HC_ACTION) then
  begin
    msgl := Pointer(KeyStroke);     // Без этих двух строчек функция работает
    if msgl.message = WM_KEYUP then // идеальною, но надо чтоб хук реагировал только
    begin                           // на отпускание клавиш. П О М О Г И Т Е !
      if((KeyStroke and (1 shl 30))<>0) then
      if not IsWindow(hA) then
      begin
        hM:=OpenFileMapping(FILE_MAP_WRITE,False,'MyHookMap');
        Hr:=MapViewOfFile(hM,FILE_MAP_WRITE,0,0,0);
        if Hr<>nil then
          hA:=Hr.AppHnd;
      end;
      if ((KeyStroke and (1 shl 30))<>0) then
      begin
        SendMessage(hA, WM_USER+2008, VirtualKey ,  KeyStroke {GetFocus});
      end;
    end;
  end;
end;

if (KeyStroke and $80000000 <> 0) then