begin
try
TidAttachment.Create(idMessage1, 'c:\chica.jpg');
with idMessage1. do
begin
Body.Assign(Memo1.Lines);
From.Text := UserEmail;
Recipients.EMailAddresses := edtTo.Text;
Subject := edtSubject.Text;
CCList.EMailAddresses := edtCC.Text;
BccList.EMailAddresses := edtBCC.Text;
end;
idSMTP1.Connect;
idSMTP1.Send(idMessage1);
finally
idSMTP1.Disconnect;
slBody.Free;
Showmessage('done');
end;
end;