без применения Memory в качестве накопителя

procedure THIMathParse._work_doDefault;
begin
SetDefault(ToReal(_Data));
end;

procedure THIMathParse._work_doClear;
begin
FResult:=FDefault;
LPos:=-1;
Err :=-1;
end;