procedure TfrmCriarArquivo.Envio_ftp(grupo, cliente: string);
begin
  with FTP do try
    Username := frmMenu.usuario;
    Password := frmMenu.senha;
    Host := frmMenu.endereco;
    Port := StrtoInt(frmMenu.porta);
    Connect;
    try
      ChangeDir(grupo);
    except
      FTP.MakeDir(grupo);
      ChangeDir(grupo);
    end;
    try
      FTP.Put('dados.ini', 'dados.ini', false);
    except
    end;
    try
      ChangeDir(grupo + '/' + cliente);
    except
      FTP.MakeDir(grupo + '/' + cliente);
      ChangeDir(grupo + '/' + cliente);
    end;
  except
    application.Terminate;
  end;
  try
    FTP.Put(cliente + '.xml', cliente + '.xml', False);
    FTP.Put('Tags' + '_' + cliente + '.txt', 'Tags' + '_' + cliente + '.txt', false);
  finally
    FTP.Disconnect;
  end;
  DeleteFile(cliente + '.xml');
  DeleteFile('Tags' + '_' + cliente + '.txt');
  DeleteFile('dados.ini');
end;