1:

ExpandEnvironmentStrings(PChar('%temp%'), PChar(result), MAX_PATH);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

function ExpandEnvStr(const szInput: string): string;
const MAXSIZE = 32768;
begin
  SetLength(Result,MAXSIZE);
  SetLength(Result,ExpandEnvironmentStrings(pchar(szInput),
  @Result[1],length(Result))-1);
end;

procedure TForm1.ButtonClick(Sender: TObject);
var s : String;
begin
with TRegistry.Create(KEY_READ) do
  try
    RootKey :=  HKEY_LOCAL_MACHINE;
    if OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment\', False) then
    begin
      if ValueExists('Temp') then
      begin
          s:=  ReadString('Temp');
          Memo1.Lines.Add(ExpandEnvStr(s));
      end;
    end;
  finally
    CloseKey;
    Free;
  end;
end;