Рыба в море

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, MPlayer,  jpeg;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Ribka(x,y: integer; color: TColor);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1; x,y:integer;
  pv, pn, h, b: array[0..3] of TPoint;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.DoubleBuffered:=true;
x:=-1000; y:=-100;// базовая точка
Form1.Color:=clSkyBlue;
Timer1.Interval := 1;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ribka(x,y,form1.color); // стереть рисунок
if x < Form1.ClientWidth then
x := x+4 else
begin
  x := -1000;  y:= -100;
end;
Ribka(x,y,clBlack);
end;
procedure TForm1.Ribka(x,y: integer; color: TColor);
Var     buf: TColor;
Begin
With Form1.Canvas Do Begin  MoveTo(x,y);
begin
Form1.Repaint;
  Canvas.Pen.Color := clYellow;
  Canvas.Pen.Width := 5;
  Canvas.Brush.Color := clYellow;
  //плавник верхний
  pv[0].y := 150; pv[0].x := 450-x;
  pv[1].y := 210; pv[1].x := 450-x;
  pv[2].y := 200; pv[2].x := 350-x;
  pv[3].y := 150; pv[3].x := 450-x;
  Canvas.Polygon(pv);
  //плавник нижний
  pn[0].y := 375; pn[0].x := 425-x;
  pn[1].y := 340; pn[1].x := 425-x;
  pn[2].y := 350; pn[2].x := 350-x;
  pn[3].y := 375; pn[3].x := 425-x;
  Canvas.Polygon(pn);
  //Хвост
  h[0].y := 275; h[0].x := 500-x;
  h[1].y := 200; h[1].x := 650-x;
  h[2].y := 350; h[2].x := 650-x;
  h[3].y := 275; h[3].x := 500-x;
  Canvas.Polygon(h);
  //Тело
  Canvas.Ellipse(150-x, 200, 550-x, 350);
  //рот
  Canvas.Pen.Color := clBlack;
  Canvas.MoveTo(160-x, 300);
  Canvas.LineTo(200-x, 300);
  //Глаз
  Canvas.Ellipse(210-x, 250, 240-x, 270);
  //
  Canvas.Arc(100-x, 160, 315-x, 400, 300-x, 350, 300-x, 200);
  //Бок
  Canvas.Pen.Color := clRed;
  Canvas.Brush.Color := clRed;
  b[0].y := 275; b[0].x := 470-x;
  b[1].y := 225; b[1].x := 350-x;
  b[2].y := 325; b[2].x := 350-x;
  b[3].y := 275; b[3].x := 470-x;
  Canvas.Polygon(b);
end;
end;
end;
end.