[lmikle]

Код:

ShellExecute(application.Handle,'Open',PChar('mailto:'+Edit1.Text),Nil,Nil,SW_SHOWDEFAULT);

PS. Вроде уже 30е сообщение, такие вещи должен бы понимать...