при компиляции пишет ошибку
[Error] Unit2.pas(145): 'END' expected but 'ELSE' found
procedure TForm2.Timer1Timer(Sender: TObject);
begin
for r:= 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
if Pos('Ìàòåðèàë óñïåøíî äîáàâëåí', WebBrowser1.OleObject.Document.All.Item(r).InnerText) <> 0
then
webbrowser1.Refresh;
timer2.Interval:=1000;
timer2.Enabled:=true;
Timer1.Enabled:=false
else
timer3.interval:=1000;
timer3.Enabled:=true;
Timer1.Enabled:=false;
end;