Считывание и сохранение системного время при нажатии кнопки

[Svetik3012]

Здравствуйте, подскажите пожалуйста, как при нажатии кнопки считывалось системное время и записывалось в строку таблицы???

[Прик]

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Cells[1, 2] := TimeToStr(Time);
end;

[Svetik3012]

Вот проект, выдает ошибку

[Svetik3012]

вот эта ошибка

[JoLan]

А кто на форму будет добавлять StringGrid? По мне так ListView красивей:

var LItem: TListItem;
begin
  LItem := ListView1.Items.Add;
  LItem.Caption := ListView1.Items.Count;
  LItem.SubItems.Add(TimeToStr(Now));
end;

P.S. код для Ctrl+V ListView на форму:

object ListView1: TListView
  Left = 8
  Top = 8
  Width = 353
  Height = 233
  Columns = <
    item
      Caption = '#'
    end
    item
      Caption = 'Time'
      Width = 280
    end>
  ColumnClick = False
  GridLines = True
  ReadOnly = True
  RowSelect = True
  TabOrder = 3
  ViewStyle = vsReport
end

[Svetik3012]

а если мне нужно добавить это время в строку таблицы(бд Access), таблица находится на DBGrid1

[JoLan]

Обращайся к нужной ячейке и присваивай ей параметр: TimeToStr(Now)

[Svetik3012]

а как ячейку указать???

[Прик]

А при чем здесь ячейка, если все данные содержаться в ADOTable1?
Поэтому необходимо записывать дату/время в поля ADOTable1, а таблица на форме благополучно их отобразит.

procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOTable1.Edit;
  ADOTable1.FieldValues['Начало работы'] := Now;
  ADOTable1.Post;
end;

При этом сначала надо ввести табельный номер, затем жать кнопку.

[Svetik3012]

Спасибо огромное!!!!!!!!!!!!!!!!!