Как программно открыть почтовый клиент по умолчанию ++

Как программно открыть почтовый клиент по умолчанию, да еще записать туда мессаж?
Например, IE это делает через File|Send|Page By E-Mail. При этом у меня открывается TheBat
с сформированным телом сообщения. Через MAPI как-то что ли? Или проще можно?

procedure TForm1.Button1Click(Sender: TObject);
var
StrMsg:string;
i:integer;
begin
//установить основную информацию
strMsg:='mailto:'+EditAddress.Text+'?Subject='+EditSubject.Text+'&Body=';
//в Memo1 - текст сообщения
//добавить первую линию
if Memo1.Lines.Count>0 then
StrMsg:=StrMsg+Memo1.Lines[0];
//добавить последовательность строк,
//разделенных символом новой строки
for i:=1 to Memo1.Lines.Count - 1 do
StrMsg:=StrMsg+'\%0D\%0A'+Memo1.Lines[i];
//отправить сообщение
ShellExecute(Handle,'open',pChar(StrMsg),'','',SW_SHOW);
end;