Mail mit Standard Mailhandler verschicken mit Anhang

[Klaus D.]

Hallo

Delphi-Quellcode:

procedure Tfrm_Mail.Button1Click(Sender: TObject);
 var   Adresse, Betreff, Text: String;
begin
 Adresse:=Edit1.Text;
 Betreff:=Edit2.Text;
 Text:='';
 ShellExecute(Handle, 'open',
 PChar('mailto:'+adresse+'?subject='+Betreff+'&body='+Text),nil,nil,SW_SHOW);
end;

Wie kann ich denn da noch eine Textdatei als Anhang ranhängen??
Danke