[M.A.D.M.A.N.]

Код:

function ExtractUrlName(UrlName:String):String;
var Index:Word;
begin
  for Index:=Length(UrlName) downto 1 Do
    if UrlName[Index]='/' Then
      begin
        Result:=Copy(UrlName,Index+1,Length(UrlName));
        Exit;
      end;
end;

Пойдет?