Create uDelphiAdapter.pas