[[maeyanes]]

Hola...

Puedes usar la siguiente función:

Código Delphi [-]
function GetPCName: string;
var
  PCName: PChar;
  NameSize: DWord;

begin
  NameSize := MAX_COMPUTERNAME_LENGTH + 1;
  PCName := StrAlloc(NameSize);
  GetComputerName(PCName, NameSize);
  Result := PCName;
  StrDispose(PCName)
end;

Saludos...