如何自动获取IE地址栏的URL到自编程序的TEdit中？(100分)

如何自动获取IE地址栏的URL到自编程序的TEdit中，即点击自编程序按钮，而不用手动复制IE地址栏的URL，就可IE地址栏的URL粘贴到自编程序的TEdit中。我的思路是使用Message机制,但不知怎么做？

//该函数是回调函数的入口地址，有用声明，直接写在implementation下
function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall;
var
buffer: array[0..255] of char;
begin
Result := True;
GetClassName(hwnd,buffer,256);
if StrPas(Buffer)='Edit' then
begin
SendMessage(hwnd,WM_GETTEXT,256,lparam);
Result:=False;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
hwnd: Integer;
buffer: array[0..255] of char;
begin
hwnd := FindWindow('IEFrame',nil);
if hwnd<> 0 then
begin
EnumChildWindows(hwnd,@EnumChildWindowsProc,Integer(@buffer[0]));
Edit1.text:= StrPas(buffer);
end;
end;

多谢joioy兄，获取URL地址问题已解决，但当我获取URL后，
使用Indy Clients中的TidHTTP组件下载该位置的页面文件时，如果URL是
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2147463
此类时，页面文件是不能下载的。
那么该如何使用IdHTTP1.Get(aURL,vFileStream)呢？

接受答案了.