procedure TForm1.Button1Click(Sender: TObject);
var
  data_hora: TDateTime;
begin
  // não esqueça de incluir DateUtils no uses

  // vamos construir a data 22/10/2009
  data_hora := EncodeDateTime(2009, 10, 22, 0, 0, 0, 0);

  // vamos exibir o resultado
  ShowMessage('A data é: ' + DateTimeToStr(data_hora));
end;

# método principal
def main():
  valor1 = 343.1
  valor2 = 3.5

  # exibirá 0342.10
  print("O valor é %07.2f" % valor1) 

  # exibirá 0342.10 e 00003.50
  print("Os valor são %06.2f e %08.2f" % (valor1, valor2))

if __name__== "__main__":
  main()

System.TObject
  Classes.TPersistent
    Classes.TCollectionItem
      DBGrids.TColumn

procedure TForm3.Button3Click(Sender: TObject);
var
  coluna: TColumn;
begin
  // vamos obter a primeira coluna do DBGrid
  coluna := DBGrid1.Columns[0];

  // vamos mostrar o título da coluna obtida
  ShowMessage('O título da coluna é: ' + coluna.Title.Caption);
end;

# declara e inicializa uma variável string
frase = "Gosto muito de Ruby"
substring = "Ruby"

# vamos verificar se a substring está contida
# na string
if frase.index(substring) != nil
  puts("A substring está contida na string")
else
  puts("A substring NÃO está contida na string")
end

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos definir a quantidade de linhas e colunas fixas
  // no TStringGrid
  StringGrid1.FixedRows := 0;
  StringGrid1.FixedCols := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter a quantidade de linhas e colunas fixas
  // no TStringGrid
  Memo1.Lines.Add('Quantidade de linhas fixas: ' +
    IntToStr(StringGrid1.FixedRows));
  Memo1.Lines.Add('Quantidade de colunas fixas: ' +
    IntToStr(StringGrid1.FixedCols));
end;