procedure TIBXINPUTSQLDA.BuildMetadata;
var Builder: Firebird.IMetadataBuilder;
    i: integer;
begin
  if FCurMetaData = nil then
  with FFirebird30ClientAPI do
  begin
    Builder := inherited MetaData.getBuilder(StatusIntf);
    Check4DataBaseError;
    try
      for i := 0 to Count - 1 do
      with TIBXSQLVar(Column[i]) do
      begin
        if FSQLType > 0 then
        begin
          Builder.setType(StatusIntf,i,FSQLType);
          Check4DataBaseError;
          Builder.setSubType(StatusIntf,i,FSQLSubType);
          Check4DataBaseError;
          Builder.setLength(StatusIntf,i,FDataLength);
          Check4DataBaseError;
          Builder.setCharSet(StatusIntf,i,GetCharSetID);
          Check4DataBaseError;
          Builder.setScale(StatusIntf,i,FScale);
          Check4DataBaseError;
        end;
      end;
      FCurMetaData := Builder.getMetadata(StatusIntf);
      Check4DataBaseError;
    finally
      Builder.release;
    end;
  end;
end;