Retomando lo que deseas hacer en realidad, este sería el código que tienes que utilizar en el evento OnClick del botón.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Path: string;
begin
Path := GetSpecialFolder(CSIDL_INTERNET_CACHE);
ShellExecute (Path)
end;