怎样用delphi实现vb的sendkey功能