procedure TForm1.Button2Click(Sender: TObject);
var
  indice: Integer;
begin
  // vamos obter o índice do item selecionado na ListBox
  indice := ListBox1.ItemIndex;

  // mostra o resultado
  ShowMessage('O índice do item selecionado é: '
    + IntToStr(indice));
end;

package arquivodecodigos;

import java.util.ArrayList;
 
public class Estudos{
  public static void main(String[] args){
    // cria uma ArrayList que conterá inteiros
    ArrayList<Integer> valores = new ArrayList<Integer>();
     
    // adiciona itens na lista
    valores.add(34);
    valores.add(12);
    valores.add(8);
    valores.add(23);
         
    // obtém a quantidade de itens na lista
    int quant = valores.size();
 
    System.out.println("A ArrayList contém " 
      + quant + " itens.");
 
    System.exit(0);
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "bom"
  substring := AnsiRightStr(frase, 3);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;

# vamos importar o framework wxPython 
import wx
# mais alguns imports necessários
from datetime import datetime
import locale

# classe que representará a janela principal da
# aplicação wxPython
class JanelaPrincipal(wx.Frame):
  # o método construtor
  def __init__(self, *args, **kw):
    # chama o construtor da classe wx.Frame
    super(JanelaPrincipal, self).__init__(*args, **kw)

    # Configurações do usuário
    locale.setlocale(locale.LC_ALL, '')

    # chama a função que inicializa a GUI
    self.InicializarGUI()

  # método usado para gerenciar o evento OnPaint
  def OnPaint(self, e):
    # Obtém um datetime da data e hora atual
    hoje = datetime.today()
    
    # vamos obter o contexto de desenho
    dc = wx.PaintDC(self)
    texto = "Evento OnPaint gerado às: {0}".format(
      hoje.strftime("%X"))
    dc.DrawText(texto, 20, 20)

  # função que inicializa a GUI do programa
  def InicializarGUI(self):
    self.Bind(wx.EVT_PAINT, self.OnPaint)
    
    # definimos o tamanho da janela
    self.SetSize((450, 350))
    # define a cor de fundo da janela (Windows 10)
    self.SetBackgroundColour(wx.WHITE)
    # definimos o título da janela
    self.SetTitle('O evento OnPaint')
    # e centralizamos a janela
    self.Centre()

# função principal do programa Python
def main():
  # vamos criar a aplicação wxPython
  app = wx.App()
  janela_principal = JanelaPrincipal(None)
  janela_principal.Show()
  app.MainLoop()

if __name__ == "__main__":
  main()