Виктор

Подскажите пожалуйста как сделать вот такой стиль? Что бы кубики по ходу загрузки меняли свой цвет

Благодарю за ответ, автор как говориться сам опозорился. Проблема была не в создании, а в ссылке на экземпляр формы.

На примере image, но не получилось не с одним...

Image:=TImage.Create(FForder);
Image.Parent:=FForder.ScrollBox1;
Image.Name:='Image'+inttostr(Count);
Image.Visible:=True;
Image.Height:=200;
Image.Width:=200;
Image.Position.X:=Count*WCount;
Image.Position.Y:=Round(Count/WCount)*200;
Image.Bitmap.LoadFromFile(FForder.Memo1.Lines[Count-1]);

Пробовал и с кнопкой и с label

Button:=TButton.Create(FForder);
Button.Parent:=FForder;
Button.Visible:=True;
Button.Height:=200;
Button.Width:=200;
Button.Position.X:=200;
Button.Position.Y:=200;
Button.BringToFront;
Button.Text:='sdf';
Button.Name:='Button'+inttostr(Count+2);
Button.Align:=TAlignlayout.alClient;
FForder.ScrollBox1.Repaint;

Не появляется компонент на форме и все тут... Я уже даже растягивание поставил, что бы точно убедиться что он не создается за пределами формы. 

Вопрос. Подскажите пожалуйста, что я делаю не так?

Спасибо, я уже разобрался, всё дело было в том что требуется задавать обработчики событий для элементов стилей еще и в OnApplyStyleLookup задавать иначе они затираются.

Я создаю элементы дерева следующим способом:

procedure TFForder.ComboBox1Change(Sender: TObject);
var
  It: TTreeViewItem;
  i: integer;
  Dir: Tstringdynarray;
  Click1: TNotifyEvent;
begin
  dir := TDirectory.GetDirectories(ComboBox1.Selected.Text, '*', TSearchOption(2), FilterPredicate);
  Treeview1.Clear;
  Button1.OnClick := Click;
  for I := 0 to length(Dir) do
  begin
    with It do
    begin
      It := TTreeViewItem.Create(Self);
      Parent := Treeview1;
      Text := TPath.GetFileName(Dir[i]);
      It.StyleLookup := 'Tree';
      It.StylesData['button.OnClick'] := TValue.From<TNotifyEvent>(Click);
      It.StylesData['text.Text'] := 'sdf';
      TreeView1.AddObject(It);
      AddObject(TTreeViewItem.Create(It));
    end;
  end;
end;

It.StyleLookup := 'Tree';