procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Column.Field.FieldName = 'FuelDate') then
with DateTimePicker1 do
begin
Date := DBGrid1.SelectedField.AsDateTime;
Left := Rect.Left + DBGrid1.Left + 1;
Top := Rect.Top + DBGrid1.Top + 1;
Width := Rect.Right - Rect.Left + 1;
Height := Rect.Bottom - Rect.Top + 1;
Visible := True;
DateTimePicker1.SetFocus;
DBGrid1.DataSource.Edit;