Get the Computer Name

function ComputerName: String;
var
   Size: DWORD;
   Name: Array[0..MAX_COMPUTERNAME_LENGTH] of char;
begin
     ComputerName := '';
     Size := 0;

     Size := MAX_COMPUTERNAME_LENGTH + 1;
     GetComputerName(Name, Size);
     ComputerName := String(Name);
end;