Informe o primeiro número: 9
Informe o segundo numero: 4
A soma é: 13
A subtração é: 5
A multiplicação é: 36
A divisão é: 2.25

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// Algoritmo Delphi para somar, subtrair, multiplicar e dividir
// dois números informados pelo usuário

program estudos_delphi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n1, n2: Integer;
  soma, subtracao, multiplicacao: Integer;
  divisao: Double;

begin
  try
    // vamos ler o primeiro número
    Write('Informe o primeiro número: ');
    ReadLn(n1);

    // vamos ler o segundo número
    Write('Informe o segundo número: ');
    ReadLn(n2);

    // primeiro vamos somar os dois números
    soma := n1 + n2;
    WriteLn('A soma é: ' + IntToStr(soma));

    // agora vamos subtrair
    subtracao := n1 - n2;
    WriteLn('A subtração é: ' + IntToStr(subtracao));

    // agora a multiplicação
    multiplicacao := n1 * n2;
    WriteLn('A multiplicação é: ' + IntToStr(multiplicacao));

    // e finalmente a divisão
    divisao := n1 / n2;
    WriteLn('A divisão é: ' + FloatToStr(divisao));

    WriteLn;
    Write('Pressione Enter para sair...');
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

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;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string;
begin
  nome := 'Osmar';

  // vamos converter a string para letras maiúsculas
  nome := AnsiUpperCase(nome);

  // exibe o resultado
  ShowMessage(nome);
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// Algoritmo Delphi para calcular desvio padrão

program estudos_delphi;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  // conjunto de dados
  conjunto: array[1..4] of double = (10, 30, 90, 30);
  soma: double; // Soma dos elementos
  desvio_padrao: double; // Desvio padrão
  tam: integer; // Tamanho dos dados
  media: double; // média
  i: integer;

begin
  soma := 0.0;
  desvio_padrao := 0.0;
  tam := 4;

  // vamos somar todos os elementos
  for i := 1 to tam do
    begin
      soma := soma + conjunto[i];
    end;

  // agora obtemos a média do conjunto de dados
  media := soma / tam;

  // e finalmente obtemos o desvio padrão
  for i := 1 to tam do
    begin
      // não esqueça de adicionar a unit Math
      desvio_padrao := desvio_padrao + Power(conjunto[i] - media, 2);
    end;

  // mostramos o resultado
  WriteLn('Desvio Padrão Populacional: ' + FloatToStr(Sqrt(desvio_padrao / tam)));
  WriteLn('Desvio Padrão Amostral: ' + FloatToStr(Sqrt(desvio_padrao / (tam - 1))));

  WriteLn;
  Write('Pressione Enter para sair...');
  ReadLn;

end.