Delphi, объясните принцип рисования StringGrid1. Canvas

[paranoiac]

Delphi, объясните принцип рисования StringGrid1. Canvas

Ребят, не могу понять как доделать программу.
Имеется календарь на один месяц.
требуется чтобы по активации рамка(окружность) двигалась по датам с заданным интервалом, а по отмене - рамка вставала на первое число в календаре.
Работает почти всё, только когда рамка доходит до 6-го числа - она начинает цикл в той же строке, а на след. не переходит.

Подправьте, если вам не трудно или объясните принцип пожалуйста.
Ссылка удалена

код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ComCtrls, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Timer1: TTimer;
    Label8: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    mm1: TMainMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j,k:byte;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[1,0]:='1';
StringGrid1.Cells[2,0]:='2';
StringGrid1.Cells[3,0]:='3';

StringGrid1.Cells[4,0]:='4';
StringGrid1.Cells[5,0]:='5';
StringGrid1.Cells[6,0]:='6';
StringGrid1.Cells[0,1]:='7';
StringGrid1.Cells[1,1]:='8';
StringGrid1.Cells[2,1]:='9';
StringGrid1.Cells[3,1]:='10';

StringGrid1.Cells[4,1]:='11';
StringGrid1.Cells[5,1]:='12';
StringGrid1.Cells[6,1]:='13';
StringGrid1.Cells[0,2]:='14';
StringGrid1.Cells[1,2]:='15';
StringGrid1.Cells[2,2]:='16';
StringGrid1.Cells[3,2]:='17';

StringGrid1.Cells[4,2]:='18';
StringGrid1.Cells[5,2]:='19';
StringGrid1.Cells[6,2]:='20';
StringGrid1.Cells[0,3]:='21';
StringGrid1.Cells[1,3]:='22';
StringGrid1.Cells[2,3]:='23';
StringGrid1.Cells[3,3]:='24';

StringGrid1.Cells[4,3]:='25';
StringGrid1.Cells[5,3]:='26';
StringGrid1.Cells[6,3]:='27';
StringGrid1.Cells[0,4]:='28';
StringGrid1.Cells[1,4]:='29';
StringGrid1.Cells[2,4]:='30';
StringGrid1.Cells[3,4]:='31';

i:=20*2;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=287 then begin i:=0; j:=j+41; end;

StringGrid1.Repaint;
StringGrid1.Canvas.Brush.Style:=bsClear;
StringGrid1.Canvas.Pen.Width:=1;
StringGrid1.Canvas.Pen.Color:=clGreen;
StringGrid1.Canvas.Ellipse(0+i,0+j,41+i,41+j);
i:=i+41;    k:=k+1;
if k=50 then begin i:=20*2; j:=0; k:=50 end;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Timer1.Enabled:=false;

StringGrid1.Repaint;
StringGrid1.Canvas.Brush.Style:=bsClear;
StringGrid1.Canvas.Pen.Width:=1;
StringGrid1.Canvas.Pen.Color:=clGreen;
i:=20*2; j:=0; k:=0;
StringGrid1.Canvas.Ellipse(0+i,0+j,40+i,40+j);
end;

end.

Исходник во вложении!
Посмотреть вложение №5.zip