pcname auslesen wo leiget der fehler?

[gandime]

hi,
ich hab mir mal eine procedure geschreiben womit man den pcnamen auslesen kann

Delphi-Quellcode:

procedure get_pcname;
var
  pc_name2: array[0..256] of char;
  l: cardinal;
begin
  GetComputerName(@pc_name2[0],l);
  pcname:=pc_name2;
end;

blos mein problem dabei is dass manchmal nicht das richtige dabei hinaus kommt wie z.b. "FºÑw
:"
wie kann ich das verhindern oder wie bekomme ich immer den korrekten pcnamen?