[patch_done] Test new firebird version

[seawolf]

Unit ZTestDBCInterbase.pas

Function: GetSupportedProtocols:

Result := 'interbase,interbase-6.5,interbase-7.2,firebird-1.0,firebird-1.5,firebird-2.0,firebirdd-1.5,firebirdd-2.0'

Unit ZTestDBCInterbaseMetadata.pas

Function: GetSupportedProtocols:

Result := 'interbase,interbase-6.5,interbase-7.2,firebird-1.0,firebird-1.5,firebird-2.0,firebirdd-1.5,firebirdd-2.0'

Unit ZTestDBCResultSetMetadata

procedute TestResultSetMetadata1

if not StartsWith(Protocol,'interbase')
and not StartsWith(Protocol,'firebird')
and not StartsWith(Protocol,'oracle')

[mdaems]

SVN rev 654.