Ошибка открытия файла. opendialog

[hemn6vyr]

Вылетает ошибка при использовании функции
Вот функция открытия файла, точнее получение его пути.

function TIntro.CheckBD: boolean;
begin
  If FileExists(GetCurrentDir + 'bd.mdb')
  Then Test.ConStr(GetCurrentDir + 'bd.mdb')
  Else
    Begin
      ShowMessage('База вопросов не найдена. Выберите базу.');
      if OpenDB.Execute //диалог открытия
      then Test.ConStr(OpenDB.FileName)
      else ShowMessage('Открытие Базы отменено. Приложение закроется.');
      Application.Terminate;
    End;
End;

А это присвоение полученных результатов в ADOConnection и ADOQuery.

function TTest.ConStr(cs: string): boolean;
begin
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                                      cs +
                                      ';Persist Security Info=False';
  ADOQuery1.ConnectionString := ADOConnection1.ConnectionString;
  Result := True;
end;

Диалог выбора файла открывается, можно пошариться по папкам, но если выбрать файл и нажать "открыть"/двойной клик вылетает ошибка. Функции находятся в разных формах. в uses первой формы добавлена вторая

First chance exception at $00627398. Exception class $C0000005 with message 'access violation at 0x00627398: read of address 0x000003a0'. Process Project1.exe (2680)

[hemn6vyr]

Полный исходный код во вложении. XE3

[evg_m]

проверка идет в момент создания, когда формы Test еще нет.

procedure TIntro.FormCreate(Sender: TObject);
begin
  CheckBD;
end;

перенесите проверку в другое событие .OnShow

[hemn6vyr]

Благодарю за помощь :-)