----------------------------------------------------------------------
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
  arquivo: File;
  valor: Byte;
begin
  // vamos abrir o arquivo para leitura
  AssignFile(arquivo, 'dados.dat');
  Reset(arquivo, 1);  // tamanho do registro = 1 byte

  // vamos ler um byte e guardá-lo na variável valor
  BlockRead(arquivo, valor, 1);

  // vamos exibir o valor do byte lido
  ShowMessage(IntToStr(valor));

  // vamos fechar o arquivo
  CloseFile(arquivo);
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
  arquivo: File;
  valor: Integer; // equivale a 4 bytes
begin
  // vamos abrir o arquivo para leitura
  AssignFile(arquivo, 'dados.dat');
  Reset(arquivo, 4);  // tamanho do registro = 4 bytes

  // vamos ler um Integer e guardá-lo na variável valor
  BlockRead(arquivo, valor, 1);

  // vamos exibir o valor do Integer lido
  ShowMessage(IntToStr(valor));

  // vamos fechar o arquivo
  CloseFile(arquivo);
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
  arquivo: File;
  valores: array[0..3] of Byte; // uma matriz de 4 bytes
  i: integer;
begin
  // vamos abrir o arquivo para leitura
  AssignFile(arquivo, 'dados.dat');
  Reset(arquivo, 1);  // tamanho do registro = 1 byte

  // vamos ler o grupo de 4 bytes e guardá-lo na matriz valores
  BlockRead(arquivo, valores, sizeof(valores));

  // vamos mostrar os valores lidos
  for i := 0 to 3 do
    begin
      ShowMessage(IntToStr(valores[i]));
    end;

  // vamos fechar o arquivo
  CloseFile(arquivo);
end;

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

procedure TForm3.Button1Click(Sender: TObject);
begin
  // vamos definir o comando SQL a ser executado
  SQLDataSet1.CommandText := 'SELECT * FROM contatos';

  // vamos executar o comando
  SQLDataSet1.Open;

  // vamos obter a quantidade de registros retornados
  ShowMessage('Quantidade de campos retornados: ' +
    IntToStr(SQLDataSet1.FieldCount));
end;

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

procedure TForm3.Button1Click(Sender: TObject);
var
  valores: array[11..20] of Integer;
  inicio, fim: Integer;
begin
  // vamos obter o índice inicial do vetor
  inicio := Low(valores);

  // vamos obter o índice final da vetor
  fim := High(valores);

  // vamos exibir o resultado
  ShowMessage('O índice inicial do vetor é: ' + IntToStr(inicio));
  ShowMessage('O índice final do vetor é: ' + IntToStr(fim));
  ShowMessage('O tamanho do vetor é: ' + IntToStr((fim - inicio) + 1));
end;

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  // vamos selecionar o segundo item na ListBox
  ListBox1.ItemIndex := 1; // o índice do primeiro item é 0

  // note que este código não funciona para ListBoxes de
  // seleção múltipla
end;