procedure SendMail(aFrom, aPassword, aTo: string; aData: string; aUserMail: string);
var
  zSMTP: TIdSMTP;
  zEmail: TIdMessage;
  zSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  zAttachment: TIdAttachmentFile;
begin
  zSMTP := TIdSMTP.Create(nil);
  try
    zEmail := TIdMessage.Create(nil);
    try
      zSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
      try
        zSSLHandler.MaxLineAction := maException;
        zSSLHandler.SSLOptions.Method := sslvTLSv1;
        zSSLHandler.SSLOptions.Mode := sslmUnassigned;
        zSSLHandler.SSLOptions.VerifyMode := [];
        zSSLHandler.SSLOptions.VerifyDepth := 0;

        zSMTP.IOHandler := zSSLHandler;
        zSMTP.Host := 'smtp.gmail.com';
        zSMTP.Port := 587;
        zSMTP.Username := aFrom;
        zSMTP.Password := aPassword;
        zSMTP.UseTLS := utUseExplicitTLS;

        zEmail.From.Address := 'program';
        zEmail.Recipients.EmailAddresses := aTo;
        zEmail.Subject := 'Регистрация';
        zEmail.Body.Text := '';
        zEmail.CharSet := 'koi8-r';
        try
          zSMTP.Connect;
          zSMTP.Send(zEmail);
          zSMTP.Disconnect;
          ShowMessage('Письмо успешно отправлено. Ожидайте ответа на почту ' + aUserMail);
        except on e: Exception do
          ShowMessage('Не удалось отправить письмо! ' + e.Message);
        end;
      finally
        FreeAndNil(zSSLHandler);
      end;
    finally
      FreeAndNil(zEmail);
    end;
  finally
    FreeAndNil(zSMTP);
  end;
end;