procedure GetIp;
 var
   data: TIdMultiPartFormDataStream;
 begin
   data := TIdMultiPartFormDataStream.Create;
   data.AddFormField('param1', 'value1');
   try
   myip:=Form1.IdHTTP1.Post('http://www.whatismyip.com/automation/n09230945.asp', data)+#13#10;
   finally
     data.Free;
   end;

   end;

procedure TForm1.SendIP;
begin
SMTP.Host:='smtp.mail.ru';
   SMTP.Username:='from@mail.ru';
   SMTP.Password:='mailpassword';
   SMTP.AuthenticationType:=atLogin;
   SMTP.Port:=25;
   with IdMessage do
      begin
      Body.Add('..IP report:..'+#13#10+myip);
        From.Text := 'from@mail.ru';
        Recipients.EMailAddresses := 'to@mail.ru';
        Subject := '..IP report:..'+#13#10+myip;
        end;
      SMTP.Connect;
         try
      SMTP.Send(IdMessage);
         finally
           SMTP.Disconnect;
         end;
end;