Извлечь имя файла из строки URL

function
 ExtractUrlFileName(const
 AUrl: string
): string
;
  var

    i: Integer;
  begin

    i := LastDelimiter('/', AUrl);
   Result := Copy(AUrl, i + 1, Length(AUrl) - (i));
  end
;

  procedure
 TForm1.Button1Click(Sender: TObject);
  var

    s: string
;
  begin

    s := ExtractUrlFileName('http://www.delphimania.de/index.php');
    ShowMessage(s);  //index.php  
end

Другое по теме:

• Проверка существования URL
• Получение URL от IE
• Взять часть URL, которая следует после названия сайта