WebBrowser da satır ve sayfa sayısını belirleme

[hido]

Merhaba webbrowser da google ile arama yaparak verileri listeliyorum, 1'e 1 gidince sayfa numarası ve satır numarası olarak belirlediğim sonuç geliyor fakat,

1. Satır sayısını artırınca istediğim sayfadan değilde farklı bir sayfadan başlıyor...
2. google da sayfa sayısı bittiğinde buna nasıl bir uyarı vere bilirim.

Kod: Tümünü seç

procedure TForm3.AraBulClick(Sender: TObject);
var
  SayfaNo, SatirNo: integer;
begin
  SatirNo := SpinEdit1.Value - 1; // Sayfa Numarası
  SayfaNo := SpinEdit2.Value; // Satır Sayısı

WebBrowser1.Navigate('https://www.google.com.tr/search?q= ' + Edit1.Text + '&hl=tr&btnG=''Ara''&start=' + IntToStr(SatirNo) + '&num=' +  IntToStr(SayfaNo) + '');
end;

[Lord_Ares]

merhaba , şu linki incelermisin marman hocam bu sayfada sahibinden comda çalışan çok güzel bir örnek yapmıştı. Kaç sayfada arama yapacağı felan hepsi vardı.
viewtopic.php?f=2&t=32298

Dikkat etmen gereken marman hocam bu sayfada iki örnek paylaştı. Dolaysı ile sayfanın bir kaç satır aşağına inersen örneğini sayfa sayfa arama yapan halini de görebilirsin.