type
原来：
Tdata=record
outdata:Toutdata;
end;
改为：
Tdata=record
outdata:Toutdata;
retdata:Tretdata;
end;