ResScale.pas Delphi编制的自适应屏幕分辨率的窗体控件