Utilizando el comando MAILTO, no se podría adjuntar anexos y en este caso es muy importante que en cada correo se adjunte un fichero anexo.
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Self.Handle, nil,
'mailto:eds2004 @ latiumsoftware.com' +
'?Subject=Test&Body=Just testing the example',
nil, nil, SW_NORMAL);
end;