Enviar EMail ( Sin Componentes )

[lacovera]

Hola" he intentado enviar un mail con la unit que decis y me da access violation justo cuando llega a
FOR I:=1 TO DataLength DIV 3 DO BEGIN
INC(Count,4);
Trip[1]:=Ord(FileBuf[(I-1)*3+1]);
Trip[2]:=Ord(FileBuf[(I-1)*3+2]);

le envio lo siguiente, porque puede ser?????

SendEmail('ipservidor','asunto','holamundo','[email protected]','[email protected]','')