procedure TForm1.Timer2Timer(Sender: TObject);
begin try
if op1.Level <= 10 then begin
        op1.Level := 0;
        timer2.Enabled :=false;
        timer1.Enabled := true;
        exit;
end;
op1.Level := op1.Level - 5;
except end;End;