procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos adicionar um novo item ao ComboBox
  comboBox1.Items.Add('Arquivo de Códigos');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lista: TStrings;
begin
  // vamos obter a lista de itens do ComboBox
  lista := comboBox1.Items;

  // vamos adicionar um novo item à lista
  lista.Add('Arquivo de Códigos');
end;

// procedure personalizada para inserir itens em um TComboBox
procedure inserirItensComboBox(lista: TStrings);
begin
  lista.Add('Arquivo de Códigos');
  lista.Add('Osmar J. Silva');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos chamar a procedure que adiciona os itens no ComboBox
  inserirItensComboBox(ComboBox1.Items);
end;

// função personalizada que constrói e retorna uma lista
// de strings
function obterLista: TStrings;
var
  lista: TStringList;
begin
  lista := TStringList.Create;
  lista.Add('Arquivo de Códigos');
  lista.Add('Osmar J. Silva');

  Result := lista;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter a lista de strings
  ComboBox1.Items := obterLista;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos adicionar um novo item na PickList da primeira coluna
  DBGrid1.Columns[0].PickList.Add('40');
end;

procedure TForm3.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  // vamos adicionar o conteúdo da PickList da primeira coluna
  // a um TMemo
  for i := 0 to DBGrid1.Columns[0].PickList.Count - 1 do
    begin
      Memo1.Lines.Add(DBGrid1.Columns[0].PickList[i]);
    end;
end;

textArea = new JTextArea(10, 20);     
String selecionado = textArea.getSelectedText();

package estudos;

public class Estudos {
  public static void main(String[] args) {
    // vamos criar os vetores com os valores x e y
    double x[] = {13, 32, 47, 54, 69, 73};
    double y[] = {208, 184, 145, 14, 65, 32};
    // as variáveis para os somatórios
    double soma_x = 0, soma_y = 0, soma_x_quadrado = 0;
    double soma_y_quadrado = 0, soma_x_vezes_y = 0;
    
    // vamos percorrer os vetores e efetuar as somas
    for (int i = 0; i < x.length; i++) {
      // primeiro o somatório de x
      soma_x = soma_x + x[i];
      // agora o somatório de y
      soma_y = soma_y + y[i];
      // então o somatório de x^2
      soma_x_quadrado = soma_x_quadrado + Math.pow(x[i], 2);
      // e o somatório de y^2
      soma_y_quadrado = soma_y_quadrado + Math.pow(y[i], 2);
      // e finalmente o somatório de x*y 
      soma_x_vezes_y = soma_x_vezes_y + x[i] * y[i];
    }
    
    // vamos obter a quantidade de valores na observação
    int n = x.length;
    
    // e finalmente calculamos o coeficiente de correlação
    // linear
    double r_xy = ((n * soma_x_vezes_y) - (soma_x * soma_y)) /
      (Math.sqrt((n * soma_x_quadrado) - Math.pow(soma_x, 2)) *
      Math.sqrt((n * soma_y_quadrado) - Math.pow(soma_y, 2)));
    
    // e mostramos o resultado
    System.out.println("O coeficiente de correlação é: " +
      r_xy);
  }
}