Отправка файла на мыло

[aspcartman]

[DCC Error] Project1.dpr(36): E2034 Too many actual parameters
[DCC Warning] Project1.dpr(36): W1020 Constructing instance of 'TIdAttachment' containing abstract method 'TIdAttachment.OpenLoadStream'
[DCC Error] Project1.dpr(40): E2034 Too many actual parameters
[DCC Warning] Project1.dpr(40): W1020 Constructing instance of 'TIdAttachment' containing abstract method 'TIdAttachment.OpenLoadStream'

Вот что получаю. (В uses еще IdAttachment нехватает)

 

[root]

Для: aspcartman

program Project2;

uses
forms,
IdMessage,
IdSMTP,SysUtils;

{$R *.res}
var
sender1: TIdSMTP;
att: TIdMessage;
f: TSearchRec;
i: integer;
begin
Application.Initialize;
Application.Run;
sender1:= TIdSMTP.Create(Application);
sender1.Host := 'smtp.list.ru';
sender1.Port :=25;
sender1.AuthenticationType := atLogin;
sender1.Username :='';
sender1.Password :='';
try
sender1.Connect();
except
exit;
end;
if sender1.Connected then
begin
att:= TIdMessage.Create(Application );
att.From.Text :='';
att.Recipients.Add.Text :=';
att.MessageParts.Create(Application); 
FindFirst('c:\lg\*.log',faAnyFile ,f);
if F.name <> '' then		 begin
TIdAttachment.Create(att.MessageParts, 'c:\lg\'+f.Name );
while FindNext(F) = 0 do
begin
TIdAttachment.Create(att.MessageParts, 'c:\lg\'+f.Name );
end;
FindClose(f);
sender1.Send(att)
end;
end;
end.