### Cloning BeaEngineDelphi Repository (Shell)

Source: https://github.com/delphilite/beaenginedelphi/blob/master/README.md

This shell command initiates the cloning of the BeaEngineDelphi GitHub repository. It's the initial step for manual installation, downloading all project source files to your local machine.

```Shell
git clone https://github.com/delphilite/BeaEngineDelphi.git
```

--------------------------------

### Disassembling Function Code with TDisasm (Delphi/Free Pascal)

Source: https://github.com/delphilite/beaenginedelphi/blob/master/README.md

This Delphi/Free Pascal code demonstrates how to use the `TDisasm` wrapper record to disassemble a function's machine code. It initializes the disassembler with the function's entry point, sets the appropriate architecture (32-bit or 64-bit), and iteratively decodes and prints each instruction until a return opcode is found or no more instructions can be decoded.

```Delphi
uses
  SysUtils, BeaEngineDelphi;

procedure DisAsmFunctionCode(const AFunc: Pointer);
var
  aDisasm: TDisasm;
  nLen: LongWord;
  pData: PByte;
  B, S: string;
begin
  FillChar(aDisasm, SizeOf(TDISASM), 0);
  aDisasm.EIP := UIntPtr(AFunc);
{$IFDEF CPUX64}
  aDisasm.Archi := ARCHI_X64;
{$ELSE}
  aDisasm.Archi := ARCHI_X32;
{$ENDIF}
  aDisasm.Options := NoTabulation + MasmSyntax;
  pData := PByte(AFunc);
  repeat
    nLen := Disasm(aDisasm);
    B := BufferToHex(pData, nLen);
    S := Format('%.8x %-16s %s', [aDisasm.EIP, B, aDisasm.CompleteInstr]);
    Writeln(S);
    aDisasm.EIP := aDisasm.EIP + nLen;
    Inc(pData, nLen);
  until (aDisasm.Instruction.Opcode = OPCODE_RET) or (nLen <= 0);
end;

begin
  try
    WriteLn('BeaEngine: ', BeaEngineVersionInfo, ', DisAsm ExpandFileNameCase ...');
    WriteLn('');
    DisAsmFunctionCode(@SysUtils.ExpandFileNameCase);
    WriteLn('');
    WriteLn('Done.');
  except
    on E: Exception do
      WriteLn('Error Decompiler: ', E.Message);
  end;
  ReadLn;
end.
```

=== COMPLETE CONTENT === This response contains all available snippets from this library. No additional content exists. Do not make further requests.