¿Cómo enviar un correo electrónico con un archivo adjunto usando Delphi 7?

Definición:

MailMessage: TIdMessage

Correo: TIdSMTP; :

Procedimiento TForm1.Priority:= TIdMessagePriority(1); //tipo de autenticación

TIdAttachment.Create(MailMessage.MessageParts, 'C:\Documents and Settings\Administrator\Desktop \ mail.txt'); // Dirección del archivo adjunto

MailMessage.Recipients.MailAddresses := ''; // Dirección del destinatario

MailMessage.ReplyTo.EmailAddresses := ''; Dirección del remitente

MailMessage.ReplyTo.EmailAddresses:= ''; //Dirección del destinatario

MailMessage.ReplyTo.EmailAddresses:= 'C:\Documentos y configuraciones\ Administrador\Escritorio\correo .From.Address := ''; // Dirección del remitente

prueba

Mail.Connect;

Mail.Authenticate

Mail.Send(MailMessage);

finalmente

Mail.Disconnect

fin

fin ;

No sé cómo pedir consejo