Ararat Synapse Mailanhang

[khh]

alsoo
mit folgendem codeschnipsel bekomme ich zwar die Mail verschickt, aber das Attachement wird wohl binär im Text angezeigt

was ist da noch falsch?

Code:

 data:=TStringList.Create;
 data.Add('This is a text');
 mm:=TMIMEMess.Create;
 mm.header.from:='[e-mail]';
 mm.header.ToList.add('[e-mail]');
 mm.header.subject:='A test';
 Part := mm.AddPartMultipart('Mixed', nil);
 mm.AddPartText(data, Part);
 tmp := TMemoryStream.Create;
 try
   tmp.LoadFromFile('C:\temp\bild1.jpg');
   mm.AddPartBinary(tmp, 'bild1.jpg',part);
 finally
   tmp.Free;
 end;
 mm.EncodeMessage;
 SendToEx('[e-mail]','[e-mail]', 'Hey','smtp.email.com', MM.Lines, '','');

Code:

This is a text
--00D00DE0_4C7AE507_Synapse_boundary
Content-type: image/JPEG; name="bild1.jpg"
Content-Transfer-Encoding: Base64
Content-Disposition: attachment; FileName="bild1.jpg"
Content-Description: Attached file: bild1.jpg

/9j/4AAQSkZJRgABAgAAAQABAAD//gA2SW50ZWwoUikgSVBQIEpQRUcgZW5jb2RlciBbNy4w
LjEwNDFdIC0gSnVsIDE5IDIwMTE7AP/bAEMAAgEBAQEBAgEBAQICAgICBAMCAgICBQQEAwQG
BQYGBgUGBgYHCQgGBwkHBgYICwgJCgoKCgoGCAsMCwoMCQoKCv/bAEMBAgICAgICBQMDBQoH
BgcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCv/A
ABEIBgAIAAMAIgABEQECEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1
EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKC
usw ......