LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

procedure TForm1.Button1Click(Sender: TObject);
var
  texto: String;
begin
  // conteúdo a ser definido para a caixa de texto
  texto := 'Veja isso';

  // vamos definir o conteúdo usando a função SendMessage
  // fornecendo a mensagem WM_SETTEXT
  SendMessage(Edit1.Handle, WM_SETTEXT, 0, Integer(PChar(texto)));
end;

nome = "Osmar"

# vamos acessar os caracteres individualmente
for indice in (0..nome.length)
  letra = nome[indice, 1] 
  puts letra
end

# importamos o módulo random da bibliteca NumPy
from numpy import random

def main():
  # vamos gerar um número inteiro aleatório de 0 (incluído) à
  # 10 (não incluído) 
  valor = random.randint(10)
  print("O número sorteado foi: ", valor)  

if __name__== "__main__":
  main()

# importamos o módulo random da bibliteca NumPy
from numpy import random

def main():
  # vamos gerar um número inteiro aleatório de 5 (incluído) 
  # à 10 (não incluído) 
  valor = random.randint(5, 10)
  print("O número sorteado foi: ", valor)  

if __name__== "__main__":
  main()