TValueListEditor 增添图标

TValueListEditor 添加图标
TValueListEditor 添加图标（简化模型）

如何在控件的下方（没有数据的区域）添加一个长方形图标？
有数据的行简单：
DrawCell中：
   Brush.Color := clCream;
   Rect.right :=20;
   FillRect(r);
[解决办法]
type
  TValueListEditor = class(ValEdit.TValueListEditor)
  protected
    procedure Paint; override;
  end;

  TForm1 = class(TForm)
    v: TValueListEditor;
...

procedure TValueListEditor.Paint;
var
  R: TRect;
begin
  inherited;
  with Canvas do
  begin
       Brush.Color := clRed;
       R := Classes.Rect(2, RowCount*DefaultRowHeight+8, 20, RowCount*DefaultRowHeight+8+62);
       FillRect(r);
  end
end;