Выбор даты в StringGrid

[artemavd]

Не могу решить одну задачку. Нужно, чтобы выбирая дату из DateTimePicker в ячейки StringGrid-a заносилось значение даты. Например, выбрал дату и в ячейку [4,1] занеслось одно значение даты, потом, выбрав в другой раз значение даты в ячейку [4,2] заносится значения уже во второй раз выбранной даты. Пытлался сделать так:

procedure TForm8.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 i: integer;
begin
 for i:=4 to Form8.StringGrid1.ColCount do
 begin
  Form8.StringGrid1.Cells[i,0]:=FormatDateTime('dd.mm',Form8.DateTimePicker1.Date);
 end;
end;

Но, как вы поняли код не работает как мне надо. Получается, что выбранная дата заносится во все ячейки нулевой строки. Как исправить, чтобы бла решена моя задача?

[Stilet]

Например вот так:

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  StringGrid1.Cells[1,StringGrid1.Tag]:=DateToStr(DateTimePicker1.Date);
 if StringGrid1.Tag<StringGrid1.ColCount then StringGrid1.Tag:=StringGrid1.Tag+1;
end;

[psycho-coder]

Еще как вариант

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  StringGrid1.Cells[1, StringGrid1.Selection.Top] := DateToStr(DateTimePicker1.DateTime);
end;