качение квадрата по квадрату

[NovichekVPascale]

Имеется данный код:

unit KVADRAT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure scr(cx,cy:integer;ang:Double);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.scr;
const cn=100;
var i,k:integer;ax,ay:real;
begin
       ang:=ang;
       with Canvas do begin
        MoveTo(cx,cy);
          for k:=1 to 4 do begin
          ax:=cos(ang*pi/180);
          ay:=sin(ang*pi/180);
            cx:=cx+round(ax*cn);
            cy:=cy+round(ay*cn);
//             Rectangle(cx-10,cy-10,cx+10,cy+10);
            LineTo(cx,cy);
            ang:=ang+90;
         END;
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var k,i:integer;
begin
for k:=1 to 7 do
for i:=0 to 90 do begin
 scr(100*k,180,i+180);
 sleep(10);
 Canvas.FillRect(ClientRect);
end;
end;

end.

необходимо сделать так, чтобы по данному катящемуся квадрату катился другой. Пример: http://rghost.ru/40890601