ShellExecute for email with file Attachment

Hi There

Can any body tell me how to use the ShellExecute command
to send a email with an Attachment?

The code I have used so far is :

StrMsg is a string

StrMsg := 'mailto:' + edtAddr.Text + '?Subject=' + edtSubj.Text +
'&Body=';
     If (Memo1.Lines.Count > 1) then
        StrMsg := StrMsg + Memo1.Lines [0];
        //
        For i := 1 to (Memo1.Lines.Count -1) do
            StrMsg := StrMsg + '%0D%0A' + Memo1.Lines [I];

        ShellExecute (Handle, 'open', pChar (StrMsg), ' ', ' ', SW_SHOW);

Greetings,

Renier Lategan.
reni...@qbcon.com