Вопрос по использованию системной даты в программе

[Neeter]

А можно еще проще:

if DBGrid1.SelectedField.FieldName = 'Имя поля' then

А насчет onKeyPress, в коде используется onKeyDown, еще я бы не вставлял дату по нажатию пробела, т.к. пробел вставляет пробел в таблицу а, например, Shift ничего не делает.

procedure TFormInTable.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_SHIFT then
 begin
  DBGrid1.DataSource.DataSet.Edit;
  if DBGrid1.SelectedField.FieldName = 'Имя поля' then
   DBGrid1.SelectedField.Text := DateToStr(Date);
 end;
end;

[Evgenii]

vovk, Neeter большое спасибо за помощь, и всем кто мне помогал!!!