[lmikle]

Например, минуя визуальный контрол:

Код:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
 tblBase.Edit;
 tblBase.FieldByName('MyDate').AsTDateTime := DateTimePicker1.Date;
 tblBase.Post;
end;