procedure TForm2.Button1Click(Sender: TObject);
var
  areaDesenho: TCanvas;
begin
  // este trecho de código mostra como desenhar uma
  // linha horizontal no formulário

  // vamos obter o canvas do formulário
  areaDesenho := Form2.Canvas;

  // vamos mover a caneta para as coordenadas x = 30; y = 100
  areaDesenho.MoveTo(30, 100);

  // vamos desenhar uma linha no formulário partindo
  // das coordenadas anteriores até as coordenadas
  // x = 300; y = 100
  areaDesenho.LineTo(300, 100);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  // este trecho de código mostra como desenhar uma
  // linha horizontal no formulário

  // vamos obter o canvas do formulário
  with Form2.Canvas do
    begin
      // vamos mover a caneta para as coordenadas x = 30; y = 100
      MoveTo(30, 100);

      // vamos desenhar uma linha no formulário partindo
      // das coordenadas anteriores até as coordenadas
      // x = 300; y = 100
      LineTo(300, 100);
    end;
end;

System.Object
  System.MarshalByRefObject
    System.ComponentModel.Component
      System.IO.FileSystemWatcher

private void fileSystemWatcher1_Changed(object sender, 
  FileSystemEventArgs e){
  
  // vamos verificar o que foi modificado neste diretório
  textBox1.AppendText("Arquivo: " + e.FullPath + " sofreu alterações: " +
    e.ChangeType + Environment.NewLine);
}

Arquivo: C:\arquivo de codigos\dados2.txt sofreu 
alterações: Changed
Arquivo: C:\arquivo de codigos\dados2.txt sofreu 
alterações: Changed

package estudos;

public class Estudos{
  public static void main(String[] args){
    // vamos criar uma string representando uma frase
    String frase = "Programar em Java só é melhor que programar em Java";
    
    // a substring que vamos pesquisar
    String sub = "Java"; // ocorrências de "Java"
    
    // quantidade de ocorrências
    int cont = 0;
    
    // um laço for que vai de 0 até o tamanho da primeira string menos
    // o tamanho da segunda string - 1
    for(int i = 0; i < (frase.length() - sub.length() + 1); i++){
      String res = frase.substring(i, (i + sub.length()));
      
      // encontramos a substring mais uma vez?
      if(res.equals(sub)){
        cont++;
      }
    }
    
    System.out.println("A frase contém " + cont + " ocorrências de " + sub);
    
    // fecha o programa
    System.exit(0);
  }
}  

Informe um número inteiro: 6
O número informado é um número perfeito.

package estudos;

import java.util.Scanner;

public class Estudos{
  public static void main(String[] args){
    int numero; // número informado pelo usuário 
    int soma = 0; // vai guardar a soma dos dígitos

    // para efetuar a leitura da entrada do usuário
    Scanner entrada = new Scanner(System.in);

    // vamos pedir para o usuário informar o valor inteiro
    System.out.print("Informe um número inteiro: ");
    // lê o número informado
    numero = Integer.parseInt(entrada.nextLine());

    // um laço que começa em 1 e até o número informado - 1
    for(int i = 1; i < numero; i++){
      // o número é divisível pelo valor de i?
      if(numero % i == 0){
        soma = soma + i; // aumenta a soma
      }
    }

    // a soma é igual ao número informado?
    if(soma == numero){
      System.out.println("O número informado é um número perfeito.");
    }
    else{
      System.out.println("O número informado não é um número perfeito.");
    }    
  }
}

System.Object 
  System.MarshalByRefObject 
    System.ComponentModel.Component 
      System.Windows.Forms.Control 
        System.Windows.Forms.DataGridView

private void button2_Click(object sender, EventArgs e){
  // vamos adicionar três colunas no DataGridView
  dataGridView1.Columns.Add("cidade", "Cidade");
  dataGridView1.Columns.Add("estado", "Estado");
  dataGridView1.Columns.Add("populacao", "População");

  // vamos adicionar três linhas
  dataGridView1.Rows.Add("Goiânia", "GO", "3.453,39");
  dataGridView1.Rows.Add("Cuiabá", "MT", "1.876,12");
  dataGridView1.Rows.Add("Curitiba", "PR", "5.346,98");
}