Отправка письма с аттачем

[Aero1]

Подскажите пожалуйста вот есть код отправки письма с аттачем
при компиляции выскакивает строка ошибки
"Too many actual parameters " на том месте где я выделил красным непойму из-за чего

procedure sendmail;
 var
 msg :TIdMessage;
begin

Form1.IdSMTP1.Host := 'smtp.yandex.ru';
Form1.IdSMTP1.Port :=  587;
Form1.idsmtp1.Username := 'user';
Form1.idsmtp1.Password := '123456';
Form1.idmessage1.Body.Text := form1.Edit1.Text;
TIdAttachment.Create(msg.MessageParts, 'C:\Attach.bmp');

Form1.idmessage1.From.Text := 'user@yandex.ru';
Form1.idmessage1.Recipients.EMailAddresses := 'user@bk.ru';
Form1.idmessage1.Subject:= 'Tema';
Form1.idsmtp1.Connect;
if Form1.idsmtp1.Connected = true then

form1.idsmtp1.Send(form1.IdMessage1);
Form1.idsmtp1.Disconnect;

end;

[savva]

TIdAttachment.Create

эм,разве у Create есть параметры?
create он же создает форму и только

[master.devel]

Ошибка означает, что параметров у функции слишком много.
Проверяй в мануале, какие параметры передаются конструктору TIdAttachment.

Сомнителен вот этот параметр: msg.MessagePar ts

[Aero1]

Сообщение от master.devel

Ошибка означает, что параметров у функции слишком много.
Проверяй в мануале, какие параметры передаются конструктору TIdAttachment.

Сомнителен вот этот параметр: msg.MessagePar ts

Да в том то и дело находил разные описания отправки аттача вроде все также описано и пишут работает а я уже как только не пробовал ну ни как не получается

[Aero1]

неужели никто аттач с письмами не отправляет ?