begin
Body.Text:=mess;
From.Text := 'от кого';
Recipients.EMailAddresses := 'кому';
Subject := 'тема';
end;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
mess:=''; 

end;

begin 
  NMSMTP1.Host := 'smtp.mailserver.com'; 
  NMSMTP1.UserID := 'h.abdullah'; 
  NMSMTP1.Connect; 

  NMSMTP1.PostMessage.FromAddress := 'hasan@excite.com'; 
  NMSMTP1.PostMessage.ToAddress.Text := 'someone@xmail.com'; 
  NMSMTP1.PostMessage.Body.Text := 'Текст письма';
  NMSMTP1.PostMessage.Subject := 'Тема письма';
  NMSMTP1.SendMail; 
end;