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 begin
webbrowser1.Refresh;
timer2.Interval:=1000;
timer2.Enabled:=true;
Timer1.Enabled:=false;end
else
begin
timer3.interval:=1000;
timer3.Enabled:=true;
Timer1.Enabled:=false;
end;