Pasar el nombre de un archivo .zip a un Edit.
 

Saludos amigos, miren lo que nesecito hacer es lo siguiente:

Tengo un Edit donde coloco el nombre del archivo que voy a generar como backup, y su extension es .zip, y junto a el 3 botones uno que es comprimir otro que es descomprimir y el ultimo que es eliminar...bueno este es el codigo que tengo en el boton de comprimir:

btn_Comprimir:

Código Delphi [-]
procedure TfrmBackup.ComprimirClick(Sender: TObject);
begin
FileRun1.Directory:=ExtractFilePath(Application.ExeName);
FileRun1.FileName:='zip.exe';
FileRun1.Parameters:=ExtractFilePath(
 Application.ExeName)+'Backupbd\'+Edit1.Text+'.zip '+
  ExtractFilePath(Application.ExeName)+'bd\*.*';
FileRun1.Execute;
end;

este otro es lo que tengo en el boton descomprimir:

btn_Descomprimir:

Código Delphi [-]
procedure TfrmBackup.DescomprimirClick(Sender: TObject);
begin
opdAbrir.InitialDir := ExtractFilePath(Application.ExeName)+'Backupbd';
if (opdAbrir.Execute)then
begin
FileRun1.Directory := ExtractFilePath(Application.ExeName);
FileRun1.FileName := 'unzip.exe';
FileRun1.Parameters := opdAbrir.FileName+' -d D:\';
FileRun1.Execute;

end;
end;

y pues como se pueden dar cuenta, lo que hace este codigo, es generar un backup de mi base de datos llamada bd en una carpeta que se llama backupbd, aqui se guarda el archivo .zip que genere, ahora lo que nesecito es que cuando le de en el boton eliminar se extraiga el nombre del archivo seleccionado y pase a un Edit, algo asi, ejemplo:


Backupbd ---> Copiaseguridad.zip

nesecito que en el edit me quede asi:

[Copiaseguridad]

algo asi es lo que yo trate de hacer, pero no tengo ni idea de como extraer el nombre:

Código Delphi [-]
procedure TfrmBackup.Button4Click(Sender: TObject);
begin
opdAbrir2.InitialDir := ExtractFilePath(Application.ExeName)+'Backupfotos';
if (opdAbrir2.Execute)then
begin
// aqui es donde trato de extraer el nombre del fichero .zip y pasarlo al edit, 
// para que el usuario se de cuenta del archivo que va a eliminar.
Edit2.Text:= ExtractFilePath(Application.ExeName);
if FileExists('D:\Gyros\Backupfotos\'+Edit2.Text+'.zip ')=true then
begin
DeleteFile('D:\Gyros\Backupfotos\'+Edit2.Text+'.zip ');
Edit2.Clear;
end;
 end;
end;

Gracias por su tiempo prestado, espero que alguien me pueda ayudar....

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.