functionExtractUrlFileName(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