Source position: base_engine.pas line 3249
procedure SaveVariant(
const Value: Variant;
S: TStream
);