VirusOpenSouceCode,Delphi