procedure TForm3.Button3Click(Sender: TObject);
var
  indice: Integer;
begin
  // vamos obter o índice da linha da célula atual
  indice := TStringGrid(DBGrid1).Row;
  ShowMessage('O índice da linha da célula atual é: ' +
    IntToStr(indice));
end;

package arquivodecodigos;

public class Estudos{
  public static void main(String args[]){
    String octal = "10";
     
    // efetua a conversão de octal para
    // decimal
    int decimal = Integer.parseInt(octal, 8);
 
    // exibe o resultado
    System.out.println("O octal " + octal + " em decimal é " +
      decimal);
 
    System.exit(0);
  }
}

System.TObject
  Classes.TPersistent
    Classes.TComponent
      DB.TField

        
TADTField          TDateField         TReferenceField   
TAggregateField    TDateTimeField     TSmallIntField   
TArrayField        TFloatField        TSQLTimeStampField   
TAutoIncField      TFMTBCDField       TStringField   
TBCDField          TGraphicField      TTimeField   
TBinaryField       TGuidField         TVarBytesField   
TBlobField         TIDispatchField    TVariantField   
TBooleanField      TIntegerField      TWideStringField   
TBytesField        TInterfaceField    TWordField   
TCurrencyField     TLargeintField     TDataSetField   
TMemoField     

procedure TForm3.Button3Click(Sender: TObject);
var
  campo: TField;
begin
  // vamos obter o campo com o nome "titulo" do registro atual
  campo := ClientDataSet1.FieldByName('titulo');

  // vamos mostrar o valor do campo
  ShowMessage('O valor do campo é: ' + campo.AsString);
end;

Informe o preço de custo: 120
Informe o preço de venda: 195
Preço de custo: 120.0
Preço de Venda: 195.0
Margem de Lucro: 75.0
Margem de Lucro Percentual (%): 62.5

package estudos;

public class Produto{
  private String nome; // nome do produto
  private double precoCusto; // preço de custo do produto
  private double precoVenda; // preço de venda do produto
  private double margemLucro; // margem de lucro do produto

  // obtém a margem de lucro
  public double getMargemLucro(){
    return margemLucro;
  }

  // define a margem de lucro
  public void setMargemLucro(double margemLucro){
    this.margemLucro = margemLucro;
  }

  // obtém o nome do produto
  public String getNome(){
    return nome;
  }

  // define o nome do produto
  public void setNome(String nome){
    this.nome = nome;
  }

  // obtém o preço de custo
  public double getPrecoCusto(){
    return precoCusto;
  }

  // define o preço de custo
  public void setPrecoCusto(double precoCusto){
    this.precoCusto = precoCusto;
  }

  // obtém o preço de venda
  public double getPrecoVenda(){
    return precoVenda;
  }

  // define o preço de venda
  public void setPrecoVenda(double precoVenda){
    // o preço de venda não pode ser menor que o preço de custo
    if(precoVenda < this.precoCusto){
      System.out.println("O preço de venda não pode ser inferior ao de custo");  
    }
    else{
      this.precoVenda = precoVenda;
    }
  }
  
  // calcula a margem de lucro
  public void calcularMargemLucro(){
    this.margemLucro = this.precoVenda - this.precoCusto;
  }
  
  // retorna a margem de lucro em porcentagem
  public double getMargemLucroPorcentagem(){
    return (this.margemLucro / this.precoCusto) * 100;
  }
}

package estudos;

import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    Scanner entrada = new Scanner(System.in);
    
    // vamos criar um novo objeto da classe Produto
    Produto p = new Produto();
    
    // vamos ler o preço de custo
    System.out.print("Informe o preço de custo: ");
    p.setPrecoCusto(Double.parseDouble(entrada.nextLine()));
    
    // vamos ler o preço de venda
    System.out.print("Informe o preço de venda: ");
    p.setPrecoVenda(Double.parseDouble(entrada.nextLine()));
    
    // vamos calcular a margem de lucro
    p.calcularMargemLucro();
    
    // vamos exibir os resultados
    System.out.println("Preço de custo: " + p.getPrecoCusto());
    System.out.println("Preço de Venda: " + p.getPrecoVenda());
    System.out.println("Margem de Lucro: " + p.getMargemLucro());
    System.out.println("Margem de Lucro Percentual (%): " + 
      p.getMargemLucroPorcentagem());
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  arquivo_original, novo_arquivo: string;
begin
  // diretorio e nome do arquivo original
  arquivo_original := 'C:\arquivo de codigos\dados.txt';

  // diretorio e nome do novo arquivo
  novo_arquivo := 'C:\arquivo de codigos\dados2.txt';

  // vamos renomear o arquivo
  if RenameFile(arquivo_original, novo_arquivo) then
    ShowMessage('O arquivo foi renomeado com sucesso')
  else
    ShowMessage('Não foi possível renomear o arquivo');
end;