Pues, si entiendo bien lo que querés es hacer algo, digamos:
Tengo "C:\Esta ruta es\la del archivo\a\borrar.zip" y quiero quedarme con "borrar"
¿Es eso?
Pues eso podría hacerse así:
Código Delphi
[-]
Edit1.Text:=ChangeFileExt(ExtractFileName(ElNombreDelArchivo),'');
Espero sirva de algo.
Saludongos.