Envio de email via Socket ?

Olá pessoal eu faço o envio de emails via componente SMTP gostaria de saber como eu faria somente via codigo de programação sem usar componente, agradeco paginas, dicas ou ate podem me mandar exemplo agradeco mesmo.

Email: delphi7@terra.com.br


Abracos
Junior