type 
sM=record
   iDATA1:integer;
   aDATA2:array[0..100] of widechar;
   end;
structM=sM;
procedure fun1;
var
   mystruct: structM;//问题出在这里,这个结构变量内存区域有的时候是系统清0,
                     //可是有的时候是随机值,系统没有给清空。好像这个变量的 
                     //内存初始化是和函数体内容有关。
begin 
   ....
    函数体。
   ....
end;