Enviar Correo

[Descendents]

añade esta linea

if (filen > '') then header := header + '&attachment="' + filen+'"';

filen es un string más, que lo declaras junto a mailto,mailsubject etc...

y donde haces MailTo := '[email protected]';, etc... haces
filen := 'c:\s.txt';

a ver que tal

PD:Copiate la lines,haz un copy paste de la linea, porque parecen comillas simples, y hay algunas comillas dobles

saludos