CheckLISTBOX

[Zero1]

alles is klar bis auf :

Delphi-Quellcode:

  Webbrowser1.Navigate(...); 
  fNewDocument := true; 
  while fNewDocument do begin 
  Application.ProcessMessages

wie soll ich das in den btngo reinmachen? da sind ja die

Delphi-Quellcode:

procedure TaMain.btnGoClick(Sender: TObject);
begin
if aoption.cbox1.Checked[3]
 then write1.click;
if aoption.cbox1.Checked[4]
 then write2.click;
if aoption.cbox1.Checked[5]
 then write3.click;
if aoption.cbox1.Checked[6]
 then write4.click;
if aoption.cbox1.Checked[7]
 then write5.click;
if aoption.cbox1.Checked[8]
 then write7.click;
if aoption.cbox1.Checked[9]
 then write8.click;
end;

hum

greez zero1