Вот эту строчку
Код:
StyleManager:=TStyleManager.Create;
нужно переместить в
OnCreate формы, а в
OnDestroy желательно добавить это
Код:
StyleManager.Free{.Destroy};
З.Ы. Или может сделать так
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
StyleManager.TrySetStyle(form1.ListBox1.Items.Strings[Form1.ListBox1.ItemIndex],True);
StyleManager.Free;
Form1.Close;
end;