获得url问题(0分)

function TForm1.GetWebPage(const Url: string): string;
var //引用了 wininet单元
Session,
HttpFile:HINTERNET;
szSizeBufferointer;
dwLengthSizeBufferWord;
dwReservedWord;
dwFileSizeWord;
dwBytesReadWord;
ContentsChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
FreeMem(Contents);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := GetWebPage('http://quan.kele8.com/supei/openFriend.do?vs=20');
end;

使用上面的代码获得html原码，用什么办法可以获得当前的url地址呢
当获得http://quan.kele8.com/supei/openFriend.do?vs=20这个页面的原码时得到的却跳转后页面的代码（跳转后页面http://210.51.5.91/index.htm?uid=6132003&key=04375m3xQul034l2c15l）
如何获得跳转后的url呢？

自己搞定 已经解决