Mit Shellexecute eMail senden, Body < 2023 Zeichen?

[APP]

Hallo,
ich bin auf ein seltsames Phänomen gestoßen,
wenn ich eine eMail mit dem Standard-eMail-Clienten versenden möchte

Delphi-Quellcode:

aMessage := 'mailto:' + '[e-mail]' + '?subject=' +  Application.Title+'+ '&body=' + Trim(Memo1.Text);
...
ShellExecute(0, PChar('open'), PChar(aMessage), NIL, NIL, SW_SHOWNORMAL);

darf aMessage nicht größer als 2023 (0-2022) Zeichen sein.
Ist irgendwie ein krummer Wert für mich (2k = 2048), weiß jemand warum das so ist?
Gibt es eine Lösung, um mit Shellexecute längere Texte zu versenden?

(MAPI taugt mir nicht, da der Mail-Client immer geöffnet sein muß um zu senden.)