para los componente individuales lo puedes hacer de la manera siguiente
Código Delphi
[-]function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall; external 'uxtheme';
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowTheme(Button1.Handle, ' ', ' ');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowTheme(Button1.Handle, nil, nil);
end;
y esto para el sistema windows en general
Código Delphi
[-]function EnableTheming(fEnable: LongBool): Cardinal; stdcall; external 'uxtheme';
procedure TForm1.Button1Click(Sender: TObject);
begin
EnableTheming(False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EnableTheming(True);
end;