[ApxaHGe1]

Уважаемые помогите решить 2 проблемы
1. Имеется любая база данных аксес, в ней есть столбцы типа DateTime, ДБГрид при клике на них, дает выбрать дату, но пишет туда как дату так и время (10.03.2016 20:03:01) а нужно (10.03.2016)

2. Вопрос

Имеются поля, в которых нужно открыть свой внутренний справочник, ок. нахожу данные поля, на них отображаю кнопку, методом (Column.ButtonStyle:=cbsEllipsis)
обрабатываю эту кнопку, открывается новая форма, теперь вопрос, как мне из этой новой формы вставить выбранное значение (скажем 2клик) в таблицу, открытую в форме_1

Раньше прям на форме 1 открывал ListBox1 и делал так

Код:

procedure TForm1.ListBox1DblClick(Sender: TObject);
Var
  Field: TField;
begin
Field := TField(ListBox1.Tag);
Field.DataSet.Edit;
Field.Value := ListBox1.Items[ListBox1.ItemIndex];
Field.DataSet.Post;
ListBox1.Hide;
end;