add delphi7 codes