{extract the page name or directory of a url}

function TForm1.ExtractURLPageName(AUrl : string): string;
var i : integer;
begin
      Result := '';
      i := length(AUrl);
      repeat
           i := i - 1;
      until (AUrl[i] = '/');
      Result := copy(AUrl, i + 1, length(AUrl) - i);
end;

function TForm1.ExtractUrlDirectory(AUrl : string):string;
var i, j, k : integer;
begin
     Result := '';
     i := length(AUrl);
     repeat
         i := i - 1;
     until (AUrl[i] = '/');
     j := 0;   k := 1;
     repeat
           if AUrl[k] = '/' then j := j + 1;
           k := k + 1;
     until (j = 3);
     If i - k > 0 then begin
       Result := copy(AUrl, k, i - k);

end;