Delphi, Запрос SQL в QUERY, БД

[Tattiana]

Скачала исходник программы с таблицей в 2 столбца, с возможностью заполнения строк. Данные таблицы сортируются по дате при нажатии кнопок сегодня/завтра и тд. Так же есть кнопка "все задания", которая отображает таблицу полностью Редактировала таблицу на нужные мне 5 столбцов, на кнопке "все задания" отображается все содержимое таблицы, но при нажатии кнопок сортировки по дате содержимое только исходных двух столбцов. На форме DBGrid, TQuery, DataSource, TTable связаны между собой. Дописывала у Query в свойстве SQL названия столбцов, но ничего не вышло. Код исходника:
Query := TQuery.Create(Form1);
with Query do
begin
// Сфорируем запрос обеспечивающий
// создание БД
SQL.Add('CREATE TABLE diary (');
SQL.Add('What CHAR(80),'); // первый столбец
SQL.Add('Data DATE);'); //второй

ExecSQL;
end;
// таблица создана
Form1.Query1.Open; // выполним запрос
end;
Код св-ва SQL:

SELECT DISTINCT Data, What
FROM "diary"
WHERE
(Data = '03.02.2002')
ORDER BY Data, What

подскажите куда и как правильно дописать код, чтобы при нажатии кнопок отображались остальные столбцы. Заранее благодарю