delphi analiza el nombre del archivo del enlace de descarga

¿Solo quieres esto?1009000235400064.mp3?

Escribí una función y simplemente la llamé. Creo que puedes escribir algo similar tú mismo.

función GetFileName(sURL: cadena): cadena;

var I: Entero;

comenzar resultado:= ''; si sURL = '' entonces

Salir; I := Pos('?', sURL); si I = 0 entonces

Salir (sURL, I, Longitud(sURL)); (sURL, '/', '\', [rfReplaceAll]); Resultado:= ExtractFileName(sURL);

fin;

procedimiento TForm1.Button1Click(Remitente: TObject);

comienzo del título:= GetFileName(Edit1.Text);

end;