trocar a skin da aplicação

To fazendo uma aplicação e quero ter a opção de trocar as skins dela,
fiz um form com alguns componentes e um list box, nesse list box quando troco de opção ele esta trocando a skin mas apenas "deste form", então quero clicar no botao "aplicar" e essa skin aplicar na aplicação toda.

Como faço isso ???

meu código ta assim:

procedure TF_Peles.ListBox1Click(Sender: TObject);
begin
if (ListBox1.ItemIndex = 0) then
SkinData1.LoadFromCollection(SkinStore1,0);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 1) then
SkinData1.LoadFromCollection(SkinStore1,1);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 2) then
SkinData1.LoadFromCollection(SkinStore1,2);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 3) then
SkinData1.LoadFromCollection(SkinStore1,3);
if not SkinData1.Active then
SkinData1.Active:=true;

if (ListBox1.ItemIndex = 4) then
SkinData1.LoadFromCollection(SkinStore1,4);
if not SkinData1.Active then

SkinData1.Active:=true;

end;

procedure TF_Peles.Button1Click(Sender: TObject);

end;

oque tenho q colocar no onclick do botão "aplicar" para ele mudar a skin da aplicação inteira ????