Blog's Ragiel

Coba download properti ini  Ikon asik 
Ini juga mungkin dapat membantu anda   Skin

Ini percobaanya

procedure TF_utama.Button1Click(Sender: TObject);
var
sl:TStringList;
i:integer;
begin
sPathDialog1.Execute;sSkinManager1.SkinDirectory:=sPathDialog1.Path;
 sl := TStringList.Create;
sSkinManager1.GetSkinNames(sl);

  ComboBox1.Clear;
  for i := 0 to sl.Count - 1 do begin
   ComboBox1.Items.Add(sl[i]); end;
end;

procedure TF_utama.ComboBox1Change(Sender: TObject);
beginsSkinManager1.SkinName:=ComboBox1.Items[ComboBox1.Itemindex];
end;
end.