Runnning on Delphi

tested running well on Delphi