checklistbox и канвас

[grafgrial]

Не могу понять почему у меня не показывается рисунок из ItemsList на ListBox показывается нормально а на checkbox не рабоает или просто не видно из-за чекера?

procedure TFInvDomain.ListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var iRect: TRect;
    s: String;
begin
  if FListWorkStation.Count<(Index+1) then Exit;
  iRect:=Rect;
  TCheckListBox(Control).Canvas.FillRect(Rect);
  iRect.Right:=iRect.Bottom-iRect.Top+3;
  if TWorkStation(FListWorkStation.Objects[Index]).isReady then
  begin
    if Length(TWorkStation(FListWorkStation.Objects[Index]).LastError)=0 then
       ImageList1.Draw(TCheckListBox(Control).Canvas,iRect.Left,iRect.Top,0,true)
    else
       ImageList1.Draw(TCheckListBox(Control).Canvas,iRect.Left,iRect.Top,1,true)
  end;
  iRect.Left:=iRect.Right+2;
  iRect.Right:=iRect.Left+TCheckListBox(Control).Canvas.TextWidth('accountingrgto1');
  DrawText(TListBox(Control).Canvas.Handle, PChar(CheckListBox1.Items[Index]), -1, iRect, DT_Left or DT_SingleLine or
    DT_END_ELLIPSIS);
  if Length(TWorkStation(FListWorkStation.Objects[Index]).LastError)>0 then
    s:=TWorkStation(FListWorkStation.Objects[Index]).LastError
  else
    s:=TWorkStation(FListWorkStation.Objects[Index]).VideoAdapter;
  iRect.Left:=iRect.Right+2;
  iRect.Right:=CheckListBox1.Width;
  DrawText(TCheckListBox(Control).Canvas.Handle, PChar(s), -1, iRect, DT_Left or DT_SingleLine or DT_END_ELLIPSIS);
end;

[grafgrial]

Может необходимо как то сдвинуть текст и картинку iRect.Left:=?