procedure ButtonNeu_OnClick(Sender: Integer); var aSMTP: TAdapterSMTP; begin aSMTP:= TAdapterSMTP.Create; try aSMTP.MailTo := 'test1@cp-austria.at;test2@cp-austria.at' aSMTP.MailFrom := 'Sender@Test.com' aSMTP.MailSubject := 'Das ist eine Test Mail'; aSMTP.MailBody.Text := 'Das ist der Body'; aSMTP.AttachmentFileName := 'c:\windows32\calc.exe'; aSMTP.SendMail(); finally aSMTP.Free; end; end;