fix a dataset component

the attached component (of a 3th party) has a bug shown below. Please fix the code. TEasyTable is available at [login to view URL] procedure [login to view URL](Sender: TObject); var a:boolean; v:variant; EsyTab:TEasyTable; begin EsyTab:=[login to view URL](self); [login to view URL]:='STD'; [login to view URL]:=True; [login to view URL]:='test'; [login to view URL]; [login to view URL]('aname',ftString,30,False); [login to view URL]; [login to view URL]; [login to view URL]; [login to view URL]('aname').AsString:=''; // empty string is NOT null [login to view URL]; v:=[login to view URL]('aname').Value; // here v is null, what is wrong a:=[login to view URL]('aname').IsNull; // here a is TRUE, what is wrong end;