Rotina para TEF

Alguém possui um exemplo de rotina para TEF em Delphi. Por favor, se alguém possuir enviar para edupbi@aol.com.