Twain scanning with Delphi 2009/2010

Having spent some time with porting scanning application from Delphi 6 to 2009, I want to share with some working twain code. I used very well written component DelphiTwain with some modifications to run in Delphi 2009.