pcname auslesen wo leiget der fehler?

[Luckie]

Delphi-Quellcode:

function GetCompName: string;
var
  Buf               : array[0..MAX_COMPUTERNAME_LENGTH] of Char;
  Size              : DWORD;
begin
  Size := SizeOf(Buf);
  if GetComputerName(Buf, Size) then
    Result := Buf
  else
    Result := '';
end;

Warum Prozedur? Du willst doch was zurückbekommen.