[roman]

No sé si algo así te sirva:

Código Delphi [-]
var
  R: TRect;

begin
  R := ListView1.Items[0].DisplayRect(drSelectBounds);
  ShowMessage(IntToStr(R.Bottom - R.Top));
end;

// Saludos