[KidMan]

Как сделать, чтобы к письму прикреплялся файл
есть код
var
em_subject, em_body, em_mail: string;
begin
em_subject := ComboBox1.text;
em_body := ' ';
em_mail := 'mailto:mail@mail.ru?subject='
+ em_subject + '&body=' + em_body;
ShellExecute(Handle, 'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL);