subir archivo a servidor ftp

[marcoszorrilla]

Yo lo borro así:

Código Delphi [-]
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;

Un Saludo.