[Antidelphik]

Sorry за флуд конечно милая администрация, но у меня опять проблема с кодом

Код:

implementation
{$R *.dfm}

var clr:TColor=clGreen;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if clr:=clGreen then
    clr:=clYellow
 else clr:=clGreen;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:word; c:TColor;
 procedure Ufo(x,y:integer; c:TColor);
  begin
   With Image1.Canvas do
    begin
     brush.Color:=c;
     Pen.Color:=clBlue;
     Pen.Width:=3;
     ellipse(x,y,x+20,y+10);
    end;
  end;

begin
 Form1.DoubleBuffered:=true;
 with Image1.Canvas do
 begin
  Brush.Color:=clBlack;
  brush.Style:=bsSolid;
  Fillrect(Image1.ClientRect);
  for i:=1 to 500 do
   Pixels[RANDOM(Image1.Width),RANDOM(Image1.Height)]:=clWhite;
  Pen.Mode:=pmNOTXOR;
  for i:=1 to 500 do
   begin
    c:=clr;
    Ufo(i,i div 2,c);
    Application.ProcessMessages;
    sleep(10);
    Ufo(i,i div 2,c);
   end;
 end;


end;



end.

ошибки выделила красным