Keine Ahnung, wo der Code den Computernamen herholt, scheint aber mehr als abenteuerlich zu sein die Methode. Für beides gibt es
API-Funktionen:
Delphi-Quellcode:
function GetCurrentUserW: WideString;
var
Size : DWORD;
begin
Size := MAX_COMPUTERNAME_LENGTH * 2 + 1;
SetLength(Result, Size);
if GetUserNameW(PWideChar(Result), Size) then
SetLength(Result, Size)
else
Result := '';
end;
Und eine Forensuche hätte dir auch schon die Antwort gegeben. Das nächste mal bitte erst suchen.