Z>AnsiString eBody = "mailto:?subject=&body=";
Z>for (int i = 0; i < 20; i ++)
for (int i = 0; i < RichEdit1->Lines->Count; i++)
Может так ;))
Z>        eBody += RichEdit1->Lines[i].Text + AnsiString( "%0A" );
Z>ShellExecute( NULL, "open", eBody.c_str(), NULL, NULL, SW_SHOWNORMAL );
Z>