pmXOR-Grafikproblem

[Mysterio08]

Vielen Dank, ich habe es hinbekommen:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  with Image1.Canvas do
  begin
    Brush.Color := clRed;
    Ellipse(200, 50, 400, 200);
    Image1.Canvas.Pen.Mode := pmXOR;
    Ellipse(x1, y1, x2, y2);
  end
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Canvas.Ellipse(x1, y1, x2, y2);
  Inc(x1, 5);
  Inc(x2, 5);
  Image1.Canvas.Ellipse(x1, y1, x2, y2)
end;

Wie man erkennt, habe ich auch das Ereignis, wie vorgeschlagen, gewechselt.
mfg.