destructor TMyInfo.Destroy; var I: Integer; begin for I:= Low(SubInfo) to High(SubInfo) do SubInfo[I].Free; SetLength(SubInfo, 0); inherited; end;