anchor.diff:    bOk: boolean;
     Res: integer;
   begin
  -  Result := piUnknow;
  +  Result := piUnknown;
     Res := GetDBInfoInt2(isc_info_db_provider, bOk);
     if bOk then
     begin
  
positive.code:   bOk: boolean;
    Res: integer;
  begin
    Result := siUnknow;
    Res := GetDBInfoInt2(isc_info_db_class, bOk);
    if bOk then
    begin
  
negative.code:   {Connection protocol values}
    TProtocolType = (ptLocal,ptTcpIp,ptNetBeui);
    {Provider Info}
    TProviderInfo = (piUnknown, piInterbase, piFirebird);
    {Server Info}
    TServerInfo = (siUnKnown, siSuperServer, siClassicServer);
  
    {@abstract(encapsulates the properties and methods for connect to firebird database)}
    TFBLDatabase = class(TComponent)
  