[ryderx34]

Код:

type
  TForm1 = class(TForm)
     procedure Ufo(x,y:integer; c:TColor);
  private

Код:

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

procedure TForm1.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;