windows - 「リソースがビジーです」というエラーが表示されます。修正方法は?

Question

以下のコードを取得しました。これは、「リソースがビジーです」を生成すると信じており、タイマーにあるため、繰り返し続けます。私はこれを使用して、自動化しようとしている Web サイトが何を伝え、それに応じて行動するかを調べます。

コードを修正またはデバッグする方法を教えてもらえますか?

    procedure TimerAutoOKTimer(Sender: TObject);
     const
          Messagefromwebpage = 'Message from webpage';

       var
          wnd: hWnd;

    begin
          wnd := FindWindow(nil, Messagefromwebpage);  // 'Message from webpage';
          if wnd <> 0 then
          begin
             Memo1.Lines.Clear;
             EnumChildWindows(wnd, @EnumChildrenProc, Integer(Memo1.Lines));

             if POS('NOT possible', Memo1.Lines.Text)>0 then
               SendMessage(Application.ActiveFormHandle, WM_COMMAND, ID_OK, 0);

             if Pos('The webpage you are viewing is trying to close the window.', Memo1.Lines.Text)>0 then
               SendMessage(Application.ActiveFormHandle, WM_COMMAND, ID_NO, 0);
          end;
    end;