Função: Validar URLs - Códigos Delphi

Função: Validar URLs

// Testa se a URL é Válida ou Não

function IsURL(const s: string): Boolean; begin Result := Pos('://', s) > 0; {http, ftp, mailto, etc...) end;