Не правильно подгружается картинка в RunTime

[Dozent]

Добрый день!

 

Суть в проблемы в следующем.

Создал стиль для TListBoxItem

 

В RunTime создаю итемы по событию

procedure TfrmMain.ReadActionDb(Sender: TObject; const sTime, sActionName: string; const RecordNumber, ActionID: integer);
var
  iCurItem: integer;
  Item: TListBoxItem;
begin
  Item := TListBoxItem.Create(nil);
  Item.Index := 0;
  // Item.Parent := lbLogActions;
  Item.Height := 60;
  Item.Margins.Top := 10;
  Item.StyleLookup := 'listboxitemaction';
  Item.Tag := ActionID;
  Item.StylesData['timeaction'] := SecToTime(sTime);
  Item.StylesData['labelaction'] := sActionName;
  Item.StylesData['imageaction'] := '.\images\ScenarioImage\actions\' + IntToStr(ActionID) + '.png';
  lbLogActions.InsertObject(0, Item);
end;

Проблема в том что, картинки подгружаются не всегда правильно, могу выскочить просто какие-то артефакты, а может вообще уменьшенная часть экрана не понятно почему)

Можно видеть на картинке что 2 созданный итем не отобразил картинку

 

Что не так делаю?

[AngryOwl]

О спасибо Вам за развёрнутый ответ, но я думаю всё же будет лучше если работать с ImageList... Можете дать ссылочку где почитать как подружить ImageList с Image?

Не могу) Я не использую ImageList

Я использую собственные контейнеры для хранения изображений. Они схожи со "старым" TImageList из VCL, но с более широкими возможностями.

[Dozent]

AlexG, к сожалению предложенный вами метод не помог... Буду делать через ImageList правда пока не знаю как)))