[Antidelphik]

Спасибо =( а можно ещё вопросик, у меня ещё в одной программке ошибку выдает, пишет пера нет...ну в общем странная ошибка ( я не знаю пока как она исправляется

Код:

procedure TForm1.Button1Click(Sender: TObject);
Procedure Ufo(x,y:integer);
 begin
  with Image1.Canvas do
  begin
   Pen.Color:=clBlue;
   pen.width:=3;
   ellipse(x,y,x+20,y+10);
  end;
 end;
var i:word;
begin
 with Image1.Canvas do
 begin
  Form1.DoubleBuffered:=True;
  Brush.Color:=clBlack;
  Fillrect(Image1.ClientRect);
  for i:=1 to 500 do
   Pixels[RANDOM(Image1.Width),RANDOM(Image1.Height)]:=clWhite;
 end;
 Pen.Mode:=pmNOTXOR;
 for i:=0 to Image1.Width do
  begin
   Ufo (i,i div 2);
   Application.ProcessMessages;
   Sleep(10);
   Ufo (i,i div 2);
  end;

end;

end.

Вот, на пен.мод выдает ошибку =(