----------------------------------------------------------------------
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 TForm2.Button1Click(Sender: TObject);
var
  a, b, c: Real;
begin
  c := 36.056; // medida da hipotenusa
  a := 20; // medida do cateto oposto

  // agora vamos calcular a medida da cateto adjascente
  b := sqrt(sqr(c) - sqr(a));

  // e mostramos o resultado
  Edit1.Text := 'A medida do cateto adjascente é: ' +
    FloatToStr(b);
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
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Delphi"
  substring := AnsiMidStr(frase, 14, 6);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;

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

library Project2;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes;

{$R *.res}

begin
end.

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

library MinhaDLL;

function Somar(a, b: Integer): Integer; stdcall;
begin
  Result := a + b; // retorna a soma
end;

{ vamos exportar (export) a função Somar }
exports
  Somar;

begin
end.