function GetIDComputerName: String;
function GetEnvVarValue(const VarName: String): String;
var
BufSize: Integer;
begin
BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
if (BufSize > 0) then
begin
SetLength(Result, BufSize -1);
GetEnvironmentVariable(PChar(VarName), PChar(Result), BufSize);
end
else
Result := '';
end;
begin
Result := GetEnvVarValue('CLIENTNAME');
if (Length(Result) = 0) then
Result := GetEnvVarValue('COMPUTERNAME');
end;