----------------------------------------------------------------------
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 TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
  dia_mes: integer;
begin
  // não esqueça de incluir DateUtils no uses

  // vamos receber a data de hoje
  hoje := Now;

  // vamos obter o dia do mês
  dia_mes := DayOf(hoje);

  // vamos exibir o resultado
  ShowMessage('O dia do mês é: ' + IntToStr(dia_mes));
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);
begin
  // vamos adicionar um novo item na PickList da primeira coluna
  DBGrid1.Columns[0].PickList.Add('40');
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
  i: Integer;
begin
  // vamos adicionar o conteúdo da PickList da primeira coluna
  // a um TMemo
  for i := 0 to DBGrid1.Columns[0].PickList.Count - 1 do
    begin
      Memo1.Lines.Add(DBGrid1.Columns[0].PickList[i]);
    end;
end;

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

procedure TForm2.Button1Click(Sender: TObject);
var
  DCDesk: HDC;
  bmp: TBitmap;
begin
  // vamos criar o Bitmap
  bmp := TBitmap.Create;

  // vamos definir o tamanho do bitmap
  bmp.Height := Screen.Height;
  bmp.Width := Screen.Width;

  // aqui nós obtemos um handle para o contexto de dispositivo
  // de exibição do Desktop
  DCDesk := GetWindowDC(GetDesktopWindow);

  // vamos copiar a imagem do desktop para o bitmap criado
  // anteriormente
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
    DCDesk, 0, 0, SRCCOPY);

  // salvamos o bitmap
  bmp.SaveToFile('screenshot.bmp');

  // liberamos o handle do desktop
  ReleaseDC(GetDesktopWindow, DCDesk);

  // e finalmente liberamos o bitmap
  bmp.Free;

  ShowMessage('Screenshot criado com sucesso.');
end;

double a = 3.0 / 0;
System.out.println(a);