[AleD]

это функции из моего пакета... допишите их до основной функции и будет работать

Код:

function ADExtractUrlHostName(const AUrl: String): String;
var
  s: String;
begin
  s := AUrl;
  s := AnsiReplaceStr(s,'\','/');

  if(Pos('//',s)<>0)then
    s := AnsiMidStr(s,Pos('//',s)+2,Length(s));
  if(Pos('/',s)<>0)then
    s := AnsiMidStr(s,1,Pos('/',s)-1);

  Result := s;
end;

function ADExtractUrlFilePath(const AUrl: String): String;
var
  s: String;
begin
  s := AUrl;
  s := AnsiReplaceStr(s,'\','/');

  if(Pos('//',s)<>0)then
    s := AnsiMidStr(s,Pos('//',s)+2,Length(s));
  if(Pos('/',s)<>0)and(Pos('//',AUrl)<>0)then
    s := AnsiMidStr(s,Pos('/',s)+1,Length(s));

  Result := s;
end;