Computernamen auslesen unter RAD 2009 und Vista

[Alex_ITA01]

Hallo zusammen,
habt ihr eine Idee, wie ich die folgende Funktion (unter Delphi 2006 geht diese) unter RAD 2009 zum laufen bekomme? In Computername steht nicht der richtige Computername drinne (zwischen den Zeichen sind immer #0 ansonsten würde der Name passen).
Danke schonmal und viele Grüße
Alex

Delphi-Quellcode:

var
  CName        : Array [0..255] of Char;
  nSize        : Cardinal;
  ComputerName : String[MAX_COMPUTERNAME_LENGTH];
begin
  if GetComputerName (CName, nSize) then
  begin
    SetLength (ComputerName, nSize);
    if nSize > Length (ComputerName) then 
      nSize := Length (ComputerName);
    Move      (CName, ComputerName[1], nSize);
  end;
end;