Модальное окно при http запросе

procedure TSets.B_RunClick(Sender: TObject);
  var Url,Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
 
  try
    Headers :='Authorization: Basic '+crypt+#10#13;//+
    url:='http://'+Last_IP+port+'/cgi-bin/'+SetConfig+'?nvm='job;
    WB.Navigate(Url,Flags,TargetFrameName,PostData,Headers);
  except
    if not _reset(Last_ip,job) then begin
      ShowMessage('Device is silent!');
      exit;
    end;
  end;
 
  Sets.Timer1.Enabled:=true; //>> Ask()
 
end;
 
procedure TSets.WBDocumentComplete(Sender: TObject;
              const pDisp: IDispatch; var URL: OleVariant);
  var _html: iHtmlDocument2;
begin
 
  if (Sender as TWebBrowser).ReadyState = ReadyState_Complete then
    begin
      _html:= WB.Document as IHtmlDocument2;
      if not FindParams(_html.body.innerHTML) then
              ShowMessage('Job "Run"= no result!');
    end;
end;
 
Procedure Ask();
  var Url,Flags, TargetFrameName, PostData, Headers: OleVariant;
  begin
    try
      Headers :='Authorization: Basic '+crypt+#10#13;//+
      url:='http://'+Last_IP+port+'/cgi-bin/'+GetConfig;
      PostData:='POST /cgi-bin/'+GetConfig+' HTTP/1.0'+
                'Connection: keep-alive'+
                'Content-Type: application/x-www-form-urlencoded'+
                'Content-Length: 0'+
                'Host: http://'+Last_IP+port+'/cgi-bin/'+GetConfig+
                'Accept: text/html, */*'+
                'Authorization: Basic '+crypt;
      WB.Navigate(Url,Flags,TargetFrameName,PostData,Headers);
    finally
      wb.free;
    end;
 
end;