Не получается с Базой данных

var
Form1: TForm1;
 
stDay : array[1..7] of string[11] = ('воскресенье','понедельник','вторник',
'среда','четверг','пятница','суббота');
stMonth : array[1..12] of string[8] = ('января','февраля','марта',
'апреля','мая','июня','июля',
'августа','сентября','октября',
'ноября','декабря');
 
implementation
 
{$R *.dfm}
 
uses DateUtils;
 
// сегодняшняя дата и день недели
procedure TForm1.FormActivate(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:= Now; // Now - функция, возвращает текущую дату и время
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Сегодня ' + IntToStr(Day)+' '
+ StMonth[Month] + ' '+ IntToStr(Year)+' года, '+stDay[DayOfWeek(Present)]+'.';
Form1.Label2.Caption := 'Сегодня и на ближайшие дни: ';
 
end;
 
// щелчок на кнопке Сегодня
procedure TForm1.Button2Click(Sender: TObject);
var
st : string; // критерий запроса
begin
Form1.Label2.Caption := 'Сегодня';
st:= FormatDateTime('dd/mm/yyyy',Now);
Form1.Query1.SQL[3] := '(Data = '''+st+''')';
Form1.Query1.Open;
if form1.Query1.RecordCount <> 0 then
form1.DataSource1.DataSet := Form1.Query1
else begin
ShowMessage('На сегодня ни каких дел не запланировано. ');
//form1.DataSource1.DataSet := Table1;
end;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var
st : string; // ???????? ???????
begin
 
Form1.Label2.Caption := 'Сегодня';
    st:= FormatDateTime('dd/mm/yyyy',Now);
    Form1.Query1.SQL.Clear;
    Form1.Query1.sql.Text:='select *from table3';
    Form1.Query1.Open;
    if form1.Query1.RecordCount <> 0 then
        form1.DataSource1.DataSet := Form1.Query1
    else begin
        ShowMessage('Сегодня никаких дел не запланировано.');
        //form1.DataSource1.DataSet := Table1;
 
end;