загрузка БД в Delphi

[TaYgA]

Всем доброго времени суток. Столкнулся с проблемой, надеюсь на вашу помощь... Главная форма моего проекта защищена паролем (File->New->Ower->Dialogs->Password Dialog).На главной форме расположена таблица базы данных. Загрузка файла происходит так (в Project->View Sourse):

  with Session do begin
    ConfigMode:=cmSession;
    AddStandardAlias('dialy',ExtractFilePath(ParamStr(0)),'PARADOX');
    end;
    Present:=Now;
    DecodeDate(Present,Year,Month,Day);
    case DayOfWeek(Present) of
      6: NextDay:=IncDay(Present,3);
      7: NextDay := IncDay(Present,2);
        else NextDay:=IncDay(Present,1)
    end;
    Organizer.Query.SQL[3]:='(Data>='''+FormatDateTime('dd/mm/yyyy',Present)+''')'
      +'and'+'(Data<='''+ FormatDateTime('dd/mm/yyyy',NextDay)+''')';
    try
      Organizer.Query.Open;
    except
      on E:EDBEngineError do begin
        MessageDlg('Файл таблицы базы данных не найден .'+#13
          +'Таблица будет создана.',mtWarning,[mbYes],0);
        Query:=TQuery.Create(Organizer);
        with Query do begin
          SQL.Add('CREATE TABLE dialy (');
          SQL.Add('What CHAR(80),');
          SQL.Add('Data DATE);');
          ExecSQL;
        end;
      Organizer.Query.Open;
      end;
    end;
    if Organizer.Query.RecordCount<>0 then
      Organizer.DataSource.DataSet:=Organizer.Query else begin
        Organizer.DataSource.DataSet:=Organizer.Table;
        Organizer.Table.Open;
        ShowMessage('На сегодня и ближайшие дни'
          +' ни каких дел не запланировано.');
      end;
  Application.Run;

Мне нужно сделать, чтоб загрузка БД происходила после проверки пароля... Какую строчку нужно добавить?!?!

[Stilet]

Главная форма моего проекта защищена паролем

Ну а где и когда ты этот пароль просишь ввести?
По хорошему это нужно делать отдельно либо создавая форму пароля в dpr (т.е. прям перед твоим кодом) причем показывать ее рекомендую через ShowModal, и анализировать что она вернет, в зависимости этого продолжать далее либо выйти по exit.

[TaYgA]

Чтоб было понятней выкладываю мой упрощённый проект (пароль к проекту '123') В проекте используются компоненты BussionsSkinForm

[TaYgA]

Вынужден вернуться к этой теме. Не могу исправить данную ошибку уже не первую неделю Есть мысль, чтоб БД загружалась при нажатии на кнопку... Пытался реализовать так:

  if Form1.Button1.ButtonClick then
  with Session do begin
    ConfigMode:=cmSession;
    AddStandardAlias('dialy',ExtractFilePath(ParamStr(0)),'PARADOX');
    end;
    Present:=Now;
    DecodeDate(Present,Year,Month,Day);
    case DayOfWeek(Present) of
      6: NextDay:=IncDay(Present,3);
      7: NextDay := IncDay(Present,2);
        else NextDay:=IncDay(Present,1)
    end;
    Form1.Query.SQL[3]:='(Data>='''+FormatDateTime('dd/mm/yyyy',Present)+''')'
      +'and'+'(Data<='''+ FormatDateTime('dd/mm/yyyy',NextDay)+''')';
    try
      Organizer.Query.Open;
    except
      on E:EDBEngineError do begin
        MessageDlg('Файл таблицы базы данных не найден .'+#13
          +'Таблица будет создана.',mtWarning,[mbYes],0);
        Query:=TQuery.Create(Organizer);
        with Query do begin
          SQL.Add('CREATE TABLE dialy (');
          SQL.Add('What CHAR(80),');
          SQL.Add('Data DATE);');
          ExecSQL;
        end;
      Form1.Query.Open;
      end;
    end;
    if Form1.Query.RecordCount<>0 then
      Form1.DataSource.DataSet:=Organizer.Query else begin
        Form1.DataSource.DataSet:=Organizer.Table;
        Form1.Table.Open;
        ShowMessage('На сегодня и ближайшие дни'
          +' ни каких дел не запланировано.');
      end;

В этом случаи возникает ошибка:

[Error] Universal_Organizer.dpr(43): Type of expression must be BOOLEAN

как её исправить?!?!