delphi 判断链接是否为http://开头

var

  s, url: string;

  url := Edit1.Text;

  if LowerCase(copy(url, 1, length('http://'))) <> 'http://' then

    url := 'http://' + url;