También puedes probar con la API
GetTempPath.
Po nun botón en un formulario y asignale este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..MAX_PATH] of Char;
begin
GetTempPath(SizeOf(Buffer) - 1, Buffer);
Self.Caption := StrPas(Buffer);
end;