FileName:='C:\file.exe';
SMTP.Host:='smtp.mail.ru';
SMTP.Port:=25;
SMTP.Username:='login';
SMTP.Password:='pass';
SMTP.AuthenticationType:=atLogin;
with IdMessage do
begin
From.Text := 'login@mail.ru';
Recipients.EMailAddresses := 'user@mail.ru';
Subject := 'subject"';
for i:=0 to Form1.ControlCount-1 do
if Form1.Controls[i] is TEdit then
IdMessage.Body.Add('TEdit(Form1.Controls[i]).BlaBlaBla);
TIdAttachment.Create(MessageParts, FileName);