Delphi - Enviar correo con Exchange

Hola, estoy programando con delphi 5, y he podido enviar correos mientras tenía un servidor de correo SENDMAIL, pero ahora hemos cambiado a EXCHANGE y no me funciona pq al enviar el correo, se requiere la autentificación. ¿Como puedo hacer para enviar correos con Exchange?

Antes utilizaba el siguiente código:
object SendMail1: SendMail
SMTP_Server = 'mail
SMTP_Port = 25
Action = None
Listcc.Strings = (
'[email protected]'
'[email protected]')
KeepConnectionOpen = False
WinsockStarted = False
Version = 'SendMail 1.3.9'
TimeoutConnect = 0
TimeoutArp = 0
Left = 204
Top = 204
end