[Megabizon]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShellExecute(0,NULL,"mailto:vasya@mail.ru?subject=hello&body=test",NULL,NULL,SW_SHOW);
}