procedure TfrExpterminales.BtEliminarClick(Sender: TObject);
begin
EdFichero.Text:=IbDtsFicherosNombre.Value;
if (Length(IbDtsFicherosNombre.Value)>14) Or (UpperCase(Copy(IbDtsFicherosNombre.Value,1,2))<>'VE') then
begin
Try
if Application.MessageBox('¿Seguro que desea eliminar el fichero?','Atención',mb_OkCancel +
mb_IconQuestion)= idOk then
begin
IdFTP.Delete(IbDtsFicherosNombre.Value);
EdFichero.Text:='';
end;
btListar.Click;
Except
ShowMessage('ERROR:El Fichero no existe.');
end;
end
else
ShowMessage('Atención:Ese fichero no puede eliminarse.');
end;