private void button1_Click(object sender, EventArgs e)
{
  listBox1.SelectionMode = SelectionMode.MultiExtended;
}

procedure TForm3.Button1Click(Sender: TObject);
begin
  // vamos adicionar alguns itens ao ComboBox
  ComboBox1.Items.Add('Java');
  ComboBox1.Items.Add('C++');
  ComboBox1.Items.Add('Python');

  // vamos obter a quantidade de itens no ComboBox
  ShowMessage('O ComboBox possui '  + IntToStr(ComboBox1.Items.Count) +
    ' itens.');
end;

package estudos;

import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    Scanner entrada = new Scanner(System.in);  
    
    // vamos solicitar a altura e o sexo da pessoa
    System.out.print("Informe sua altura (ex: 1.74): ");
    double altura = Double.parseDouble(entrada.nextLine());
    System.out.print("Informe o sexo (M ou F): ");
    char sexo = entrada.nextLine().charAt(0);
    double pesoIdeal;
    
    // vamos testar o sexo da pessoa
    if(Character.toUpperCase(sexo) == 'M'){ // masculino
      pesoIdeal = (72.7 * altura) - 58;  
    }
    else{ // feminino
      pesoIdeal = (62.1 * altura) - 44.7;  
    }
    
    // vamos mostrar o resultado
    System.out.println("Seu peso ideal é: " + pesoIdeal);
    
    System.out.println("\n");
  }
}

Informe um caractere: A
Você informou o caractere: A
O código ASCII correspondente é: 65

package estudos;

import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    // para ler a entrada do usuário
    Scanner entrada = new Scanner(System.in);
    
    // vamos pedir para o usuário informar uma letra, símbolo ou pontuação
    System.out.print("Informe um caractere: ");
    
    // vamos ler o caractere informado
    char caractere = entrada.nextLine().charAt(0);
    
    // agora vamos obter o código ASCII correspondente
    int codigo = (int)caractere;
    
    // e mostramos o resultado
    System.out.println("Você informou o caractere: " + caractere);
    System.out.println("O código ASCII correspondente é: " + codigo);
  }
}

<script type="text/javascript">
<!--
  function obterAtributo(){
    // Este exemplo mostra como obter o valor do 
    // atributo value de uma caixa de texto com 
    // o id "nome"
	
    var valor = $('#nome').attr("value");
    window.alert(valor);
  }
//-->
</script>

procedure TForm1.Button1Click(Sender: TObject);
var
  diretorio: string;
begin
  // diretório que queremos verificar a existência
  diretorio := 'C:\arquivo de codigos';

  // vamos verificar se o diretório existe
  if DirectoryExists(diretorio) then
    ShowMessage('O diretório existe')
  else
    ShowMessage('O diretório NÃO existe');
end;