// Проверено на XE6 и XE7
procedure TForm1.ListView1Painting(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
   if ListView1.GetItemRect( ListView1.ItemCount-1 ).Bottom = ListView1.Height then
      Label1.Text := 'YES! Через одно место, но работает!'
   else
      Label1.Text := 'Это еще не конец...';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   // Включаем событие
   ListView1.PullToRefresh := True;
end;

procedure TForm1.ListView1PullRefresh(Sender: TObject);
begin
   // Обновляем список
end;