通过Ole方式发送ＯｕｔＬｏｏｋ邮件问题？(50分)

想通过Ｏｕｔｌｏｏｋ发送邮件，我想在发送前能编辑一下邮件，即能弹出创建新邮件的框，编辑完后再发送，因为ＳｈｅｌｌＥｘｅｃｕｔｅ方式实现的功能太简单，我还需要其它功能，因此想通过Ｏｌｅ方式发送，但是每次执行邮件也不提示就自动发送完了，我想编辑都没法编辑。请教高手我该如何设置参数。

代码通过测试的
希望对你有用
//---------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
MailTo:string;
begin
MailTo := 'mailto:lcy32@stinfo.net?subject=你好&body=你好';

if ShellExecute(GetDesktopWindow(), 'open', PChar(MailTo), nil, nil,
SW_SHOWNORMAL) <= 32 then
MessageDlg('An Error occurred with Mail!',mtError,[mbOK],0);

end;
//------------------------------------------