with mesgMessage do
    begin
      Clear;
      From.Text := trim(DRLabel13.Caption);
      Recipients.Add.Text := v_recipients;
      Subject := v_Subject;
      Body.Assign(v_Strings);
    end;
    with IdSMTP2 do
    begin
      Host := 'escort.com.cn';
      Connect;
      try
        Send(mesgMessage);
      finally
        Disconnect;
      end;
    end;

function SendMail(SenderMail, SenderName, Recipient, Subject, AttachFile, 
MailText: string): boolean;    var
  Smtp1 : TIdSMTP;
  Message1 : TIdMessage;
  Attach1 : TIdAttachmentFile;    begin
    Result := True;
    Smtp1 := TIdSMTP.Create(nil);
    Message1 := TIdMessage.Create(nil);
    if Result then
        try
            Smtp1.Host := '1.2.3.4';
            Smtp1.Port := 25;
            Smtp1.MailAgent := 'My Mailer';
            Smtp1.Username := 'username';
            Smtp1.Password := 'password';
            Smtp1.AuthType := atDefault;
            Message1.CharSet := 'charset=iso-8859-1';
            Message1.ContentTransferEncoding := '8bit';
            Message1.ContentType := 'text/plain';
            Message1.Organization := 'My Company';
            Message1.From.Name := SenderName;
            Message1.From.Address := SenderMail;
            Message1.Recipients.Clear;
            with Message1.Recipients.Add do
                Address := Recipient;
            Message1.Body.Text := MailText;
            Message1.Subject := Subject;
            if AttachFile <> '' then
                Attach1 := TIdAttachmentFile.Create(Message1.MessageParts, 
AttachFile);
            try
                Smtp1.Connect;
                if Smtp1.Connected then
                    Smtp1.Send(Message1);
            except
                on E: Exception do
                begin
                    Result := False;
                    TrackError('SendMail', E.Message   ' - '   Recipient, 
DBModule.VerString);
                end;
            end;
            try
                if Smtp1.Connected then
                    Smtp1.Disconnect;
            except
            end;
        except
            Result := False;
        end;
    if Assigned(Attach1) then
        Attach1.Free;
    Message1.Free;
    Smtp1.Free;
end;