これでどうよ？
（フォームにリストビューをおいて、イベントを実装しただけ）

procedure TForm1.FormCreate(Sender: TObject);
begin
with ListView1 do
begin
Columns.Add.Caption := 'title';
OwnerData := True;
Items.Count := 4;
end;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
Item.Caption := Format('test%d', [Item.Index]);
end;

ところで、おまいら、自作ツールに簡易ペイント（photoshop）や
簡易ドロー（visio）機能を実装するにはどうしたらいいですか？
コンポに汁？