Помогите плиз реализовать в Lasarus! Изобразить удаляющийся квадрат, определенных размеров, размещенный в центре экрана.

[soso1]

Изобразить удаляющийся квадрат, определенных размеров, размещенный в центре экрана. начало у меня есть, но он у меня из середины увеличивается, т.е. нужно наоборот, как дальше не знаю((((

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
 x, y: longint;
    n,i:integer;

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled:= not Timer1.Enabled;
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   n:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  i:=i+1;
   Image1.Canvas.Pen.Color:=clWhite;
     Image1.Canvas.Pen.Color:=clBlack;
     x:=(Image1.Width div 2);
 y:=(Image1.Height div 2) ;
 Image1.Canvas.Rectangle(x+i,y+i, x-i,y-i);
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[VIK_aka_TOR]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Canvas.Pen.Color:=clWhite;
  Image1.Canvas.Rectangle(x+i,y+i, x-i,y-i);
  i:=i-1;
  Image1.Canvas.Pen.Color:=clBlack;
  x:=(Image1.Width div 2);
  y:=(Image1.Height div 2) ;
  Image1.Canvas.Rectangle(x+i,y+i, x-i,y-i);
end;

а в FormCreate не n инициализировать, а i - это будет половина длинны стороны квадрата, то бишь должно быть примерно Image1.Width div 2 или Image1.Height div 2, смотря что меньше.