...get more... for Delphi.NET, C#, VB.NET for Delphi VCL, BCB 3-6
greatis.blogspot.com
This example shows, how to get number of items that can fit vertically in the visible area of a list view control.
SendMessage(ListView1.Handle, LVM_GETCOUNTPERPAGE, 0, 0);