Ай-пи можно получить так:

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;

должно работать непроверял...

Можно не использовать форму и использовать комопенты... впринцыпе нужно попробовать заюзать winsock для отправки почты менше хоть весить будет ексешник.

Да и вот что отключить можно всё только вот непонимаю зачем тибе консоль создай proga.dpr открой его в Delphi и пиши на нечистом извратном винАПИ