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

BOOL GetUserName(
  LPTSTR lpBuffer,
  LPDWORD lpnSize
);

----------------------------------------------------------------------
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
  buffer: array[0..255] of Char; // um buffer de 256 caracteres
  tamanho: DWORD;
begin
  // vamos informar ao Windows o tamanho do buffer
  tamanho := 256;

  // vamos chamar a função da API do Windows
  if GetUserName(buffer, tamanho) then
    begin
      ShowMessage('O nome de usuário é: ' + buffer);
      // informa a quantidade de caracteres usados. Note que
      // o caractere de término da string também é informado
      ShowMessage('A função usou: ' + IntToStr(tamanho) +
        ' caracteres');
    end
  else
    ShowMessage('Não foi possível obter o nome do usuário');
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
  buffer: PChar; // um buffer do tipo PChar
  tamanho: DWORD;
begin
  // vamos informar ao Windows o tamanho do buffer
  tamanho := 256;

  // vamos alocar a memória suficiente para receber o nome
  // do usuário
  GetMem(buffer, tamanho);

  // vamos chamar a função da API do Windows
  if GetUserName(buffer, tamanho) then
    begin
      ShowMessage('O nome de usuário é: ' + buffer);
      // informa a quantidade de caracteres usados. Note que
      // o caractere de término da string também é informado
      ShowMessage('A função usou: ' + IntToStr(tamanho) +
        ' caracteres');
    end
  else
    ShowMessage('Não foi possível obter o nome do usuário');

  // vamos liberar o buffer alocado dinamicamente
  FreeMem(buffer);
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
  buffer: String; // um buffer que será convertido para PChar
  tamanho: DWORD;
begin
  // vamos informar ao Windows o tamanho do buffer
  tamanho := 256;

  // aqui há um truque interessante. como não vamos precisar
  // de 256 caracteres para guardar o nome de usuário e não podemos
  // correr o risco de enviar uma string muito pequena, a saída
  // é usar o retorno de GetUserName() para ajustar o tamanho
  // da string depois de enviá-la à função.

  // vamos ajustar o tamanho da string
  SetLength(buffer, tamanho);
  GetUserName(PChar(buffer), tamanho);
  // agora tamanho guarda a quantidade de caracteres usados na função
  SetLength(buffer, tamanho);  // comente esta linha para ver o resultado

  // se o valor de tamanho for 0, então a função falhou
  if tamanho > 0 then
    begin
    ShowMessage('O nome de usuário é: ' + buffer);
      // informa a quantidade de caracteres usados. Note que
      // o caractere de término da string também é informado
      ShowMessage('A função usou: ' + IntToStr(tamanho) +
        ' caracteres');
    end
  else
    ShowMessage('Não foi possível obter o nome do usuário');
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
  i: Integer;
  selecionados: TStringList;
begin
  // para que este exemplo funcione corretamente, a ListBox
  // deverá permitir seleção múltipla
  // ListBox1.MultiSelect := True;
  selecionados := TStringList.Create;

  // vamos obter os itens selecionados na ListBox
  if ListBox1.SelCount > 0 then
    begin
      for i := 0 to ListBox1.Count - 1 do
        begin
          if ListBox1.Selected[i] then
            selecionados.Add(ListBox1.Items[i]);
        end;

        // vamos exibir os itens selecionados em um TMemo
        Memo1.Lines.Clear;
        Memo1.Lines.Add('Os itens selecionados são:');

        for i := 0 to selecionados.Count - 1 do
          Memo1.Lines.Add(selecionados[i]);
    end
  else
    ShowMessage('Nenhum item selecionado.');

  // vamos liberar o TStringList
  selecionados.Free;
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)
----------------------------------------------------------------------

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;