Update xmailer.pas

fix memory leaks in the function 
procedure SendMail(const AParams: string; const AQuoteChar: Char;
  AProgress: TMailerProgress);