add delphi 7 code

about oop