begin 
   SMTP.Host:='xxx'; // адрес почтового сервера 
   SMTP.Port:=25; // порт по которому будет осуществляться подключение 
   SMTP.Username:='yyy'; // логин пользователя 
   SMTP.Password:='zzz'; // пароль пользователя 
   SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией 
   with IdMessage do 
      begin 

        Recipients.EMailAddresses := 'xxxx'; // майл получателя письма 
        Subject := 'Йа тут'; // тема письма ну или $ip

        end; 

      SMTP.Connect;
         try 
      SMTP.Send(IdMessage); 
         finally 
           SMTP.Disconnect;
         end; end;