これでできた。
Delphi FAQ: Win32のコンピュータ名の取得
var ComputerName: array[0..127] of Char; UserName : array [0..127] of char; Size: DWORD; begin Size:=128; GetComputerName(ComputerName, Size); GetUserName(UserName, Size); ShowMessage('ComputerName : '+ComputerName +', UserName : '+UserName); end;
よくわかりませんが、コンピューター名もユーザー名も128文字以内としました。
長い名前があったらどうしよう。