var URL := edtAddress.Text;

if not StartsText('http', URL) then  //判断是否是http 开头，如果不是则
begin
    URL := 'http://' + URL;
end;