关于TIdURI的问题,知道帮忙!(100分)

GetFTPParams(pURL,sProtocol, sName, sPass, sHost, sPort, sDir);
IDFTP.ChangeDir(sDir);//就是这里出错,如果ftp的路径是E:/ftp/就没事,但如果ftp的路径是e:/mydir/ftp/的话就会出错,URI取出来的总是/ftp/,这时候再调用IDFTP.ChangeDir(sDir)就会出错

procedure Tdownload.GetFTPParams(pURL: string; var vProtocol, vName, vPass,
vHost, vPort, vDir: string);
var
URI: TIdURI;
begin
URI := TIdURI.Create(pURL);
try
vProtocol := URI.Protocol;
vName := URI.Username;
vPass := URI.Password;
vHost := URI.Host;
vPort := URI.Port;
vDir := URI.Path;//请注意这里
if trim(vName + vPass) = '' then
begin
vName := 'anonymous';
vPass := 'IEUser@';
end;
if Trim(vPort) = '' then
vPort := '21';
finally
URI.Free;
end;

end;