[ecfisa]

Hola Lepuke.

Código Delphi [-]
function GetLinkFileName(const Link: string): string;
var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
   TS.Delimiter:= '/';
   TS.DelimitedText:= Link;
   Result:= TS[TS.Count-1];
  finally
   TS.Free;
  end;
end;

Llamadas de ejemplo:

Código Delphi [-]
var
  s: string;
begin
  s:= 'httx://localhost/archivos/tengo.zip';
  s:= GetLinkFileName(s);
  ShowMessage(GetLinkFileName('http://www.terawiki.clubdelphi.com/archivos/Delphi/Manuales/La_Cara_Oculta_De_Delphi_4.pdf.zip'));
 ...
end;

Saludos.