function TForm1.GettingComputerName: string;

var

  Size: cardinal;

  pStr: PChar;

  Res: boolean;

begin

   pStr := nil;

   Size := MAX_COMPUTERNAME_LENGTH + 1;

   try

      pStr := StrAlloc( Size );

      Res := GetComputerName( pStr, Size );

      if Res then

         Result := StrPas( pStr )

      else

         Result := 'Имя компьютера неизвестно';

   finally

      if pStr <> nil then StrDispose( pStr );

   end;

end;