Envia email com anexo

Olá pessoal.

Estou usando o codigo abaixo para enviar email pelo outlook express e funciona legal. Agora preciso acrescentar no codigo a opção de enviar um anexo no email, como faço isso? Grato.

CODIGO:

email:= ´mailto:´+edpara.Text;
email:= email + ´?subject=´;
email:= email + ´&body=´;
email:= email + ´&cc=´+memo1.Text;
Shellexecute(GetDesktopWindow,´open´,pchar(email),nil,nil,sw_shownormal);


Luiz Carlos