∧ ∧　　・・・・。
　　　 ミ ﾟДﾟ彡
　　〜ﾐ,,,,uuミ

　　　　∧ ∧　ｼｮﾎﾞｰﾝ　
　　　 ミ,,｡＿｡彡 　
　　〜ﾐ,,,,uuミ

ﾒｰﾗｰ起動なら…
procedure TForm1.Button2Click(Sender: TObject);
var
MailAddress, Subject, Body, CommandLine: String;
begin
　MailAddress := '[email protected]';
　Subject := 'メールのタイトル';
　Body := StringReplace( Memo1.Text, #13#10, '%0D%0A', [rfReplaceAll]) ;
{ #13#10は'%0D%0A'のようにエスケープしる。 }
CommandLine :=
　 Format('mailto:%s?subject=%s&body=%s', [MailAddress, Subject, Body]);

ShellExecute(Handle, nil, PChar(CommandLine), nil, nil, SW_SHOWNORMAL);
end;