//如：http://www.delphitop.com/

function CheckUrl(const sUrl:string):Boolean;
var
  bl :Boolean;
begin
  Result := False;
  bl := Pos('http://www.',LowerCase(sUrl))>0;
  bl := bl or (Pos('.delphitop.',LowerCase(sUrl))>0);
  if not bl then
  begin
    MessageBox(0, 'URL地址配置不正确！请检查后重试！　', '系统提示',
      MB_OK + MB_ICONSTOP + MB_TOPMOST);
    Exit;
  end;
  Result := bl;
end;