TWebBrowser에서 http 404 에러(파일없는)날때 처리

// TWebBrowser onNavigateError 이벤트에서 처리

procedure TfrmMain_Help.wbNavigateError(ASender: TObject; const pDisp: IDispatch; var URL, Frame,

  StatusCode: OleVariant; var Cancel: WordBool);

begin

  if StatusCode = '404' then

  begin

    sBar.Panels[1].Text := '파일없음 : ...' +copy(URL, 21, 100); //줄여서 21째 부터 경로 표현

  end;

end;