{ TDataMsg }

    TDataMsg = record
      Msg: DWord;
      WParam: Word;
      LParam: NativeInt;
    end;

    //вариант сценария работы дополнительного потока
    MyThreadTarget = (mttConnectDB, mttDisconnectDB, mttOpenDSet);   

//==========================
procedure TMyThread.Execute;
var MyMsg: TDataMsg;
    ErrMsg: String;
    i: Integer;
begin
  //реализуем тот или иной функционал потока в зависимости от заданной цели
  case FThreadTarget of
 {======================================================================================}
    //коннект к базе и основным таблицам
    mttConnectDB:
      try {цикл коннекта к базе и проверок}
        //задаем параметры коннекта
        with FrmMain.DBase_main do
          begin
            DatabaseName:= FDbName;
            LibraryName:= FLibName;
            Params.Add('lc_ctype=' + FChrSet);//чарсет коннекта
            Params.Add('user_name=' + FUsrNm);//имя юзера
            Params.Add('password=' +FPW);//пароль
            if Trim(FUsrRole) <> ''
              then Params.Add('sql_role_name=' + FUsrRole);//роль, если задана
          end;

        //запускаем фоновый поток коннекта
        try {коннект к базе данных}
          //коннектимся к базе (передаем сообщение в LabelMsg)
          MyMsg.LParam:= NewString('Коннектимся к базе данных');
          SendMessage(FrmMain.Handle, WM_GETFORSPLASHSTR_MSG, 0, MyMsg.LParam);

          //спрячем левую кнопку на сплэше
          MyMsg.WParam:= 0;
          MyMsg.LParam:= NewString('');
          SendMessage(FrmMain.Handle, WM_GETFORBTNLEFT_MSG, MyMsg.WParam, MyMsg.LParam);

          //текст для правой кнопки
          MyMsg.LParam:= NewString('Прервать');
          MyMsg.WParam:= 1;
          SendMessage(FrmMain.Handle, WM_GETFORBTNRIGHT_MSG, MyMsg.WParam, MyMsg.LParam);

          Sleep(1000);

          if not FrmMain.DBase_main.Connected then FrmMain.DBase_main.Connected:= True;

        except {коннект к базе данных}
           on E:EIBError do
             begin
               case EIBError(E).IBErrorCode of
         335544344: ErrMsg:= 'Не могу подключиться к указанному файлу базы данных. ' +
                             'Возможно, его уже успели переименовать, переместить, удалить или у вас нет на него прав';
         335544472: ErrMsg:= 'Введенный пароль не соответствует вашему логину. Уточните ваш логин и ' +
                             'пароль у администратора базы данных';
                 else
                    ErrMsg:= {$IFDEF UNIX} E.Message; {$ELSE} WinCPToUTF8(E.Message); {$ENDIF}
               end;


               //передаем текст сообщения в мемо
               MyMsg.lParam:= NewString(ErrMsg);
               SendMessage(FrmMain.Handle, WM_GETFORSPLASHSTR_MSG, 0, MyMsg.LParam);

               i:= 10;//счетчик на 10 циклов

               //немного заморозим отрисовку на(i) циклов, чтобы юзер смог осмыслить сообщение об ошибке,
               //пока не окончился таймер или не прилетело сообщение из сплеша, что там нажата кнопка 'Esc'
               while (i > 0) and (not FrmMain.FIsFinishedThread) do
               begin
                 Dec(i);
                 {$IFDEF UNIX}
                   MyMsg.LParam:= NewString(Format('Закрыть (%d)',[i]));
                   MyMsg.WParam:= 1; //нажатие левой кнопки с обратным отсчетом завершит поток
                   SendMessage(FrmMain.Handle, WM_GETFORBTNRIGHT_MSG, MyMsg.WParam, MyMsg.LParam);

                   MyMsg.LParam:= NewString('Сохранить в буфер обмена');
                   MyMsg.WParam:= 2; //нажатие правой кнопки сохранит текст ошибки в буфер обмена и завершит поток
                   SendMessage(FrmMain.Handle, WM_GETFORBTNLEFT_MSG, MyMsg.WParam, MyMsg.LParam);
                 {$ELSE}
                   MyMsg.LParam:= NewString(Format('Закрыть (%d)',[i]));
                   MyMsg.WParam:= 1; //нажатие левой кнопки с обратным отсчетом завершит поток
                   SendMessage(FrmMain.Handle, WM_GETFORBTNLEFT_MSG, MyMsg.WParam, MyMsg.LParam);

                   MyMsg.LParam:= NewString('Сохранить в буфер обмена');
                   MyMsg.WParam:= 2; //нажатие правой кнопки сохранит текст ошибки в буфер обмена и завершит поток
                   SendMessage(FrmMain.Handle, WM_GETFORBTNRIGHT_MSG, MyMsg.WParam, MyMsg.LParam);
                 {$ENDIF}

                 Sleep(1000);
               end;

               FrmMain.FIsFinishedThread:= True;//сообщим сплешу, что поток закончился и можно закрыться
               Exit;//переходим к секции finally
             end; {on E:EIBError do}
        end; {коннект к базе данных}

        try {коннект к таблице с настроками пользователя}
          with FrmMain do
          begin {with FrmMain do}
            MyMsg.LParam:= NewString('Загружаем или создаем настройки пользователя');
            SendMessage(Handle, WM_GETFORSPLASHSTR_MSG, 0, MyMsg.lParam);

            Sleep(1000);

            //проверяем, есть ли у этого юзера запись в таблице настроек
            QrySettings.SQL.Text:=
            'SELECT COUNT (RDB$DB_KEY) AS cnt FROM RDB$DOCSETTINGS WHERE NAME = UPPER(:prmUsrName)';
            QrySettings.Prepare;
            QrySettings.ParamByName('prmUsrName').Value:= FUsrNm;
            QrySettings.Open;

            //если нет, то создаем запись с его именем и дефолтовыми настройками
             if QrySettings.FieldByName('cnt').AsInteger = 0 then
             begin
               TransWrite_main.StartTransaction;
               try {try .. except попытка записи в таблю настроек}
                 ExecSql_Settings.SQL.Text:= 'EXECUTE PROCEDURE CREATE_DOCSETTINGS_NEW_USER (:prmNAME,:prmNOTE)';
                 ExecSql_Settings.Params.ByName('prmNAME').Value:= LowerCase(UsrNm);
                 ExecSql_Settings.Params.ByName('prmNOTE').Value:= '';
                 ExecSql_Settings.ExecQuery;
                 TransWrite_main.Commit;
               except {try .. except попытка записи в таблю настроек}
                 TransWrite_main.Rollback;
                 FCurrentUser:= 'DEFAULT_USER';//текущий юзер для загрузки настроек

                 // далее поскипал однотипный код
				 
                 //если нажали кнопку 'Нет' на сплэше, то переходим в блок finally и прерываем коннект
                 if FIsFinishedThread then Exit;
               end; {try .. except попытка записи в таблю настроек}
             end;
          end; {with FrmMain do}
        except {коннект к таблице с настроками пользователя}
          FrmMain.FCurrentUser:= 'DEFAULT_USER'; //текущий юзер для загрузки настроек
          // далее поскипал
          
          //если нажали кнопку 'Прервать' на сплэше, то переходим в блок finally и прерываем коннект
          if FrmMain.FIsFinishedThread then Exit;
        end; {коннект к таблице с настроками пользователя}


      {TODO: отладить настройки юзера}

        //грузим настройки юзера
        //FrmMain.LoadAppSettings;


        try {коннект к остальным данным}

          //коннектимся к таблице
          MyMsg.LParam:= NewString('Получаем данные');
          SendMessage(FrmMain.Handle, WM_GETFORSPLASHSTR_MSG, 0, MyMsg.LParam);

          //спрячем левую кнопку на сплэше, передав туда "нулевой" признак видимости
          MyMsg.WParam:= 0;
          MyMsg.LParam:= NewString('');
          SendMessage(FrmMain.Handle, WM_GETFORBTNLEFT_MSG, MyMsg.WParam, MyMsg.LParam);

          //текст для правой кнопки
          MyMsg.LParam:= NewString('Прервать');
          MyMsg.WParam:= 1;
          SendMessage (FrmMain.Handle, WM_GETFORBTNRIGHT_MSG, MyMsg.WParam, MyMsg.LParam);

          Sleep(1000);

          FrmMain.QrySelect.Active:= True;
        except {коннект к остальным данным}
         on E:EIBError do
           begin
             //текст ошибки
             {$IFDEF UNIX} ErrMsg:= E.Message; {$ELSE} ErrMsg:= WinCPToUTF8(E.Message); {$ENDIF}

             // далее поскипал однотипный код
             FrmMain.FIsFinishedThread:= True;//сообщим сплешу, что поток закончился и можно закрыться
             Exit;//переходим к блоку код в finally
           end;
        end; {коннект к остальным данным}


      finally {цикл коннекта к базе и проверок}
        //если ранее взвели флаг окончания потока
        if FrmMain.FIsFinishedThread
          then //то прервем коннект
            begin
              FrmMain.DBase_main.Connected:= False;
            end
          else //иначе доведем дело до конца
            begin
              //если коннект успешный, применяем загруженные настройки
              if FrmMain.DBase_main.Connected then FrmMain.SetAppSettings;

              //взведем флажок (чтобы сплэш знал о завершении потока и дал себя закрыть)
              FrmMain.FIsFinishedThread:= True;
            end;

        //закроем сплэш
        SendMessage(FrmMain.Handle,WM_CLOSESPLASHFORM_MSG,0,0);
      end; {цикл коннекта к базе и проверок} {mttConnectDB:}

{======================================================================================}
    mttDisconnectDB: ;

{======================================================================================}
    mttOpenDSet: ;

  end; {case FThreadTarget of}


end;    

procedure TFrmMain.ActOpenDBExecute(Sender: TObject);
begin
  if Assigned(FConnectThread) then Exit;//если поток все еще крутится, выйдем отседова

  FCurrentUser:= UsrNm;//запоминаем залогинившегося юзера

  //создаем приостановленный поток
  FConnectThread:= TMyThread.Create(True);

  try
    //определяем, какая часть потока бцдет реализована
    FConnectThread.FThreadTarget:= mttConnectDB;

    //передаем параметры коннекта в фоновый поток
    with FConnectThread do
      begin
        FChrSet:= ChrSet;
        FDbName:= DBName;
        FLibName:= LibName;
        FUsrNm:= UsrNm;
        FPW:= PW;
        FUsrRole:= UsrRole;
      end;

    //создаем сплэш
    SplashForm:= TFrmSplash.Create(Application);

    //стартуем ожидающий поток
    FConnectThread.Start;
    try
      SplashForm.ShowModal;//показываем сплэш
    finally
      FreeAndNil(SplashForm);
    end;
  finally
    FreeAndNil(FConnectThread);
  end; 

Проект <тут название моего проекта> вызвал класс исключения 'External: SIGABRT'.

 По адресу B7FDCD40

program andrology_pr;

{$mode objfpc}
{$H+}
{$codepage UTF8}

uses
  {$IFDEF UNIX}
  cthreads
  , cmem
  ,
  {$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, rxnew, ibexpress, main_u, main_functions_u, splash_u, variable_u,
  dm_pict_u;

{$R *.res}

begin
  Application.Scaled:=True;
  Application.Title:='<название проекта>';
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TDM_pictures, DM_pictures);
  Application.CreateForm(TFrmMain, FrmMain);
  Application.Run;
end.

procedure TFrmMain.SetAppSettings;
begin
//определяем доступность грида в зависимости от состояния коннекта
Grid_main.Enabled:= DBase_main.Connected;

//настройки сетки
with Grid_main do
  begin
    if Enabled
      then
        begin
          TitleFont.Color:= clDefault;
        end
      else
        begin
          TitleFont.Color:= clGrayText;
        end;
  end;


//и далее в том же духе

// для отладки
if FrmMain.DBase_main.Connected
  then FrmMain.Label4.Caption:= 'connected'
  else FrmMain.Label4.Caption:= 'not connected';
end;