Környezeti változók lekérdezése programból

procedure TForm1.FormCreate(Sender: TObject);
const
  MAX=18;
  NAMES: array[0..MAX-1] of string=(
    'computername',
    'username',
    'os',
    'logonserver',
    'processor_architecture',
    'processor_identifier',
    'processor_revision',
    'processor_level',
    'number_of_processors',
    'systemdrive',
    'winbootdir',
    'windir',
    'programfiles',
    'commonprogramfiles',
    'tmp',
    'appdata',
    'allusersprofile',
    'path'
  );
var
  buf: array[0..127] of char;
  i: integer;
begin
  for i:=0 to MAX-1 do begin
    GetEnvironmentVariable(PChar(NAMES[i]), buf, 128);
    ListBox1.Items.Add(NAMES[i]+': '+buf);
  end;
end;