RosettaCodeData/Task/Environment-variables/Delphi/environment-variables.pas

program EnvironmentVariable;

{$APPTYPE CONSOLE}

uses SysUtils;

begin
  WriteLn('Temp = ' + GetEnvironmentVariable('TEMP'));
end.