#pas
procedure TClassFTCG_Tools_8EA8A50.event_doValue(var Data:TData; index:word);
var
  au1:integer;
  procedure myProc(var myvar:integer);
  begin
  end;
begin
  
end;