Trotz Exception programm weiterlaufen lassen

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
 i,z,e:Integer;
begin
z := 0;
for I := 1 to 100 do
  begin
      Memo1.Lines.Add(IntToStr(i));
     try
      e :=  i div z;
     except
       ON E:Exception do Memo2.Lines.Add(E.Message);
     end;
  end;
end;