procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos adicionar 4 dias à data de hoje
  hoje := IncDay(hoje, 4);

  // vamos exibir o resultado
  ShowMessage('Daqui a 4 dias será: ' + DateToStr(hoje));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos subtrair 5 dias da data de hoje
  hoje := IncDay(hoje, -5);

  // vamos exibir o resultado
  ShowMessage('Há 5 dias era: ' + DateToStr(hoje));
end;

"""
  Sou um módulo Python. A única funcionalidade que
  ofereço é uma função que soma dois números
"""

def somar(num1, num2):
  return (num1 + num2)

"""
  Sou o programa principal e vou importar
  o módulo que contém a função somar
"""

import funcoes

def main():
  print(funcoes.somar(3, 5))  
    
if __name__== "__main__":
  main()

"""
  Sou o programa principal e vou importar
  o módulo que contém a função somar()
"""

# importa o módulo sys
import sys

# acrescenta o diretório lib na variável
# de ambiente PYTHONPATH
sys.path.append(sys.path[0] + '\\lib')

# pode importar funcoes no diretório lib
import funcoes

# pode chamar o método somar agora
def main():
  print(funcoes.somar(3, 5))

if __name__== "__main__":
  main()

<p id="parag" class="destaque">Sou um parágrafo</p>

<script type="text/javascript">
<!--
  function adicionarClasse(){
    $('#parag').addClass("destaque2");
  }
//-->
</script>

<script type="text/javascript">
<!--
  function adicionarClasse(){
    $('#parag').addClass("destaque2 destaque3");
  }
//-->
</script>

using System.Runtime.InteropServices;

[DllImport("user32.dll", EntryPoint = "SendMessage", 
  CharSet = CharSet.Auto, SetLastError = true)]
private static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, 
  IntPtr wParam, IntPtr lParam);

private void button2_Click(object sender, EventArgs e){
  // antes de executar este exemplo certifique-se de que
  // a propriedade Multiline do TextBox esteja definida
  // como true e a propriedade ScrollBars contenha o valor
  // Vertical ou Both
  textBox1.Multiline = true;
  textBox1.ScrollBars = ScrollBars.Vertical;
    
  // constante para a mensagem WM_VSCROLL
  const uint WM_VSCROLL = 0x115;
  // constante para o parâmetro wParam
  const int SB_BOTTOM = 7;
  
  // handle para a caixa de texto
  IntPtr handle = textBox1.Handle;
  IntPtr wParam = (IntPtr)SB_BOTTOM;
  IntPtr lParam = IntPtr.Zero;
  
  // vamos fazer com que o TextBox role para o fundo (parte inferior)
  SendMessage(textBox1.Handle, WM_VSCROLL, wParam, lParam);
}

// define uma letra
char letra = 'A';

// define um valor hexadecimal equivalente à letra "A"
char letra2 = '\x0041';

// define um valor Unicode equivalente à letra "A"
char letra3 = '\u0041';

// converte o valor 65 para um char
char letra = (char)65;

// exibe o resultado
Console.WriteLine("A letra é: " + letra);

static void Main(string[] args){
  for(int i = 65; i <= 90; i++){
    char letra = (char)i;
    Console.Write(letra + " ");
  }
  
  // pausa o programa
  Console.ReadKey();
}