Получение переменных среды

procedure GetEnvironmentStrings(ss:TStrings);
{Переменные среды}
var
 ptr: PChar;
 s: string;
 Done: boolean;
begin
 ss.Clear;
 s:='';
 Done:=FALSE;
 ptr:=windows.GetEnvironmentStrings;
 while Done=false do begin
  if ptr^=#0 then begin
   inc(ptr);
   if ptr^=#0 then Done:=TRUE
   else ss.Add(s);
   s:=ptr^;
  end else s:=s+ptr^;
  inc(ptr);
 end;
end;