200 分求一份隐藏打开网页的代码。(200分)

要求：
通过读取固定URL地址的TXT文件中的网页地址打开指定的网页。。例如程序读取 http://www.abc.com/1.txt中的内容。TXT中的内容例如为 http://www.baidu.com
那么，程序就会打开百度。。最好能支持打开多个网页。。例如TXT文本中一行为一个网页地址。。。
本人QQ：144423！信箱：144423@qq.com！有的麻烦联系QQ或者发到本人信箱。如有其他要求也可以联系解决。。。

很简单的啊
用IDHTTP.Get( 'http://www.abc.com/1.txt');
取得1.txt的内容
然后解析出里面的地址
再一个个
WinExec('c:/program files/internet explorer/iexplore'+解析出来的地址, SW_ShowNormal) 就可以了啊。

呜呼，代码能给完整点吗？偶是菜鸟！最好能把完整代码打包发给我。谢谢。没问题就结贴。。。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
Memo1: TMemo;
Edit1: TEdit;
Button2: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OpenURL(Url:String);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
Memo1.Lines.Clear;
Memo1.Lines.Add(IDHTTP1.Get('http://www.abc.com/1.txt'));
//Memo1.Lines.LoadFromFile('1.txt');
for i:=0 to memo1.Lines.Count-1 do
begin
OpenURL(memo1.Lines.Strings);
end;

end;

procedure TForm1.OpenURL(Url: String);
begin
WinExec(pchar('c:/program files/internet explorer/iexplore '+Url), SW_ShowNormal)
end;

end.

这里没有对1.txt的内容做验证，假定是每一行存储一个地址的。（http://www.baidu.com）

麻烦把代码发到我ＱＱ信箱好吗？我收到就结贴了。我慢慢研究！您复制上来的，我不会搞啊！
144423@qq.com

邮件已发，请查收

接受答案了.