用于清理用户输入的URL的Delphi代码

我需要一个用户能够输入一个网址,并希望确保它是尽可能健康。比如检查前面是否有http://,没有双点,可能是有效的tld,尾随斜杠(我必须添加最后一页)。

我认为这是一个非常普遍的要求,它必须已经存在。建议?

[编辑:]要清除,这是Windows服务中的运行时要求。其目的是从从配置中读取的URL中获得最佳结果,而不是验证用户键入的内容。本质上,如果我可以调整URL并使其正常工作,那么这就是我想要做的。下载将是一个特定的文件,所以如果一切都出错了,就不会错误地从另一个服务器得到错误的东西。