[Alegun]

Похоже можно создать потомка от ЛВ и у него переназначить процедуру WMPaint, примерно так

Код:

...
type
  TPaintListView = class(TListView)
 protected
  procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
 end;
...

{ TPaintListView }

procedure TPaintListView.WMPaint(var Message: TWMPaint);
var
 Cnv: TControlCanvas;
 DrawBounds: TRect;
begin
 inherited;
 Cnv:= TControlCanvas.Create;
 DrawBounds:= ClientRect;
  try
   Cnv.Control:= Self;
   Cnv.Draw(0, 1, {Пример картинки} Form1.Image1.Picture.Graphic);
  finally
   Cnv.Free;
  end;
 end;

а вот и пример динамики

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
with TPaintListView.Create(self) do Parent:= form1;
end;