Помогите написать программу Delphi

[Summerrain]

Нужно заполнить числами(буквы нельзя) StringGrid, кроме главное диагонали. Главная диагональ окрашивается в черный цвет. При вводе числа в StringGrid ячейка в которое вводиться число должна подсвечиваться желтым.
Возмем матрицу 5 на 5. Есть одно но !!!
В данном случае мы заполняем только матрицу 4 на 4. А последнии столбец и строка оставляются пустыми. Так надо Я потом туда буду записывать результат матем работ с введенными числами.
При нажатие кнопки "Записать" матрица должна записываться в фаил в виде матрицы.
При нажатие кнопки "Извлечь" в StringGrid должна вывести та матрица которая ранее была сохранена.
Прошу Оставляйте свои коды, которые реально могут помочь.
Спасибо Заранее.

[Summerrain]

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.OnDrawCell:=nil;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 1) and (ARow = 1) then
begin
StringGrid1.Canvas.Brush.Color := clRed;
StringGrid1.Canvas.FillRect (Rect);
StringGrid1.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol,ARow]);
end; {if}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.OnDrawCell:=StringGrid1 DrawCell;
StringGrid1.Invalidate;
end;

Нашел процедуры для окраски ячейки в красный цвет при нажатие клавиши ))) НО мне надо ее как нить переделать чтобы пр след. нажатие этой же клавиши текущая ячейка погасла (стала сново белой) а следующая окрасилась в красный.