Döngü Hatası !!!

[fduman]

WebBrowser1 Formunun bir nesnesi. Global değil. Sen global bir proc'dan forma erişmeye çalışıyorsun.

Bunun için SonrakiSatir içinde Form1.WebBrowser1 olarak kullanmalısın. Tabii TForm1 nesne pointer'ini, Form1 değişkenine atıyorsan.

[Trial_Cooder]

WebBrowser1.Free'yi Kullanma Amacım, 2. Site Açılmadığında 1. Sitenin Dökümanı Görünüyor O Yüzden, Doğrumu Bilmiyorum Zaten

[Trial_Cooder]

Yaptım

procedure TForm1.Button2Click(Sender: TObject);
begin
s := 0;
WebBrowser1.Navigate(ComboBox1.Text + Memo2.Lines[s]);
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Sayfa : Variant;
begin
WebBrowser1.Document._Release;
Sayfa := WebBrowser1.Document;
if Webbrowser1.LocationURL <> '' then
memoSource.text := SAYFA.Body.OuterHTML;
Button1.Click;
WebBrowser1.Navigate(ComboBox1.Text + Memo2.Lines[s]);
s := s + 1;
end;

Çalışıyor