Delphi - nombre del ordenador

Hola

¿Cómo puedo saber el nombre del ordenador donde se está ejecutando mi aplicación?

Gracias

var
Usuario, ordenador:String;
x : dword;
begin

x:=255;
{ user }
SetLength(Usuario,x);
GetUserName(PChar(Usuario),x);
SetLength(Usuario,(x));
x := 255;
SetLength(Ordenador,x);
GetComputerName(PChar(Ordenador),x);
SetLength(Ordenador,(x));

showMessage(usuario);
showMessage(Ordenador);
end;

yo lo tengo de esta manera, lo encontre en trucomania aqui : http://www.q3.nu/trucomania/ftesp.html

Esta Funcion:

function NombrePC : String;
var
pcComputer : PChar;
dwCSize : DWORD;
begin
dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem( pcComputer, dwCSize );
try
if Windows.GetComputerName( pcComputer, dwCSize ) then
Result := pcComputer;
finally
FreeMem( pcComputer );
end;
end;

Y luego desde tu aplicacion solo la llamas :

Label1.Caption:=NombrePc;

Me funciona perfectamente.

Con la API GetComputerName

var
cadena: array [0..MAX_COMPUTERNAME_LENGTH] of char;
...
GetComputerName (cadena,MAX_COMPUTERNAME_LENGTH + 1);
...
Edit1.Text:= cadena;
...