Erro ao enviar Email com Indy e bds2006

with smtp do
  begin
    Connect;
    Authenticate;
  end;
  with IdMessage do
  begin
    //Messagem
    Subject := ´Enviando pedido´;
    Body.Text := ´Estou enviando o pedido Número: ´ + IntToStr(CodVenda);

    //Remetente
    From.Address := ´faccruz@gmail.com´;
    From.Name := ´Fábio André´;
    ReplyTo.EMailAddresses := ´faccruz@gmail.com´;

    //Destinatario
    Recipients.EMailAddresses := ´info@clickacueca.com.br´;

    MessageParts.Clear;
  end;
  TIdAttachment.Create(IdMessage.MessageParts, SaveDialog1.FileName);
  smtp.Send(IdMessage);
  smtp.Disconnect;