You must replace hostname, filename, addresses, etc with valid email and host and filenames of course. Hope this helps!
smtpServer.Host := 'hostname';
smtpServer.Connect;
try
smtpServer.PostMessage.Attachments.Add('filename');
smtpServer.PostMessage.FromAddress := 'fromaddress';
smtpServer.PostMessage.FromName := 'fromname';
smtpServer.PostMessage.Subject := 'your subject';
smtpServer.PostMessage.ToAddress.Add('toaddress');
smtpServer.SendMail;
finally
smtpServer.Disconnect;
end;
TealWren