[Neftali [Germán.Estévez]]

Con esta pequeña función...

Código Delphi [-]
function ComputerName: string;
var
  Buffer: array[ 0..MAX_COMPUTERNAME_LENGTH ] of Char;
  MaxSize: Integer;
begin
  MaxSize := SizeOf( Buffer );
  if not GetComputerName( @Buffer, MaxSize ) then
    raise Exception.Create( 'No puedo determinar el nombre de la máquina' );
  Result := StrPas( @Buffer );
end;

Para probarla utiliza éste código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := ComputerName
end;