отправка на майл

[Fawas]

ето прога отправляет на мыло с 1 мемо... как зделать чтоб она отправляла мемо1 и мемо2 одновременоо
ну напр.
в мемо1 записиваю "привет"
в мемо 2 записиваю "пока"
и чтоб на майл пришло
"привет
пока"

procedure TForm1.Button1Click(Sender: TObject);
begin
     IdSmtp1.Host:= 'smtp.mail.ru';
     IdSmtp1.Port := 587;
     idSmtp1.Username := 'qqq';
     idSmtp1.Password := '123';
     IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
     idMessage1.Body.Text := Memo1.Text;
     idMessage1.From.Text :='qqq@mail.ru';
     idMessage1.Recipients.EMailAddresses := 'www@mail.ru';
     idMessage1.Subject := 'Tect';
     idmessage1.ContentType:='text/html; charset=windows-1251';
     idmessage1.ContentTransferEncoding:='8bit';
     idSmtp1.Connect;
     if idSmtp1.Connected = TRUE then
     idSmtp1.Send(idMessage1);
     idSmtp1.Disconnect();
end;



end.