Kreis zeichnen

[2va]

ich bin leider noch Anfänger im Umgang mit Delphi und kenne mich folgich noch nicht so richtig mit den Befehlen aus.
Ich soll in eine Art "Paint"-Programm einen Kreis zeichen lassen. Dies soll nach Drücken eines Buttons auf der Imagekomponente geschehen und zwar dort wo man mit der Maus den "Startpunkt" und den Endpunkt setzt.
Ich hab schon was versucht, was allerdings nicht ganz bzw. garnicht funktioniert.

Delphi-Quellcode:

//Kreis
  if KreisButton.Down and (Shift =[ssleft]) then
     begin Lox:=X;Loy:=Y; first:=true end;
teil eins
//Kreis
  if KreisButton.Down and (shift=[ssleft]) then
    begin
     image1.Canvas.Pen.Mode:=pmNotXor;
     if not first then image1.Canvas.Ellipse(Lox,Loy,AltX,Alty);
     image1.Canvas.Ellipse(Lox,Loy,X,Y);
     AltX:=X;AltY:=Y;
     first:=false
    end;
teil zwei
//Kreis
  if KreisButton.Down then
  begin
  image1.Canvas.Pen.Mode:=pmCopy
  image1.Canvas.Ellipse(Lox,Loy,X,Y);
  end;
teil drei

Der Fehler tritt im dritten Teil auf und lautet
[Fehler] Grafik4mn.pas(202): Operator oder Semikolon fehlt

was kann man da machen??? Ich bin echt ratlos