Узнать IP
uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

Отправить e-mail
uses Outlook_TLB;
 var outlook : _application;
 Procedure Init;begin outlook := Coapplication_.Create;
 end;
 procedure SendEmail;begin with Outlook.CreateItem(olMailItem) as mailitem do 
 begin 
 To_ := 'email@email.com'; 
 cc:='email2@email.com'; 
 Subject := 'This is subject line'; Attachments.Add('FileName',1,1,'This is attachment'); 
 Body :='This is email body'; 
 Send; 
 end;
 end;

Есть код по удобней(только Indy нужен)
procedure TForm1.Button1Click(Sender: TObject);
begin

idsmtp1.Host := 'smtp.mail.ru';
idsmtp1.Port :=  25;
idsmtp1.Username := 'username';
idsmtp1.Password := '123456';
idmessage1.Body.Text := 'Tut telo';
idmessage1.From.Text := 'username@mail.ru';
idmessage1.Recipients.EMailAddresses := 'username@mail.ru';
idmessage1.Subject:= 'Tut zagolovok';

idsmtp1.Connect;
if idsmtp1.Connected = true then

idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;

end;