Slanje attachmenta INDY

Imam problem sa slanjem attachmenta
Kod je

procedure TForm1.Button2Click(Sender: TObject);
begin

IdMessage1 := TIdMessage.Create(Self);
IdSMTP1.Connect;
IdMessage1.From.Address := '[email protected]';
IdMessage1.Subject := 'My test email';
IdMessage1.Recipients.Add.Address := '[email protected]';
IdMessage1.Body.Text := 'pozdrav';
TIdAttachment.Create(IdMessage1.MessageParts,('c:\AeroAdminLog.txt'));
IdSMTP1.Send(IdMessage1);
showmessage('test mail sent');
end;

program nece da se kompajlira i pokazuje gresku na ('c:\AeroAdminLog.txt'))
tacnije kad dodje do (.

U c:\ napravi fajl AeroAdminLog.txt!

Vec ima fajl nije u tome problem vec negdje u kodu

Dobaci poruku greske da vidimo.
Bice da ti je druga verzija package-a ili tako nesto.

Pozz

Nasao; bice da dobijas poruku 'abstract error' ili tako nesto.

Koristis kod za stariji Delphi (recimo iz 7-ice), u novijem Delphi-ju (XE...).
Promenjena je klasa TIdAttachment, sada je abstract (constructor i jos par metoda moraju da se override-uju).
Pokusaj sa TidAttachmentFile, to je descendent klase TidAttachment upravo za slanje fajlova.

Pozz

Rjeseno
TIdAttachmentFile.Create(IdMessage1.MessageParts, 'c:\AeroAdminLog.txt');
hvala na pomoci