var
  Str:String;
Begin
  Str:='mailto:'+Edit2.text+'?subject='+Edit3.text+'&Body='+Memo1.Lines.Text;
  ShellExecute(handle, 'open', 'PChar(Str)', nil, nil,SW_SHOWNORMAL);
End;
可以运行通过,但是不可以调用outlook,我估计是PChar的原因,就是不知道怎么解决,哪个高手帮我解决下....小弟弟急