procedure TZIbSql.SetParameter(SqlVar: PXSQLVAR; Value: variant);
SM>....
SM>case SqlVar.sqltype and (not 1) of
SM>   SQL_TEXT, SQL_VARYING:
SM>     begin
SM>       TempStr := VarToStr(Value);
SM>       SqlVar^.sqllen := Length(TempStr);
SM>       ReallocMem(SqlVar^.sqldata, SqlVar^.sqllen + 1);
SM>       if Length(TempStr) > 0 then
SM>         Move(TempStr[1], SqlVar^.sqldata^, SqlVar^.sqllen);