разобрался, если кому пригодится то выход следующий(ни каких конструкторов не нужно(в bds2006))
uses .....IdAttachmentFile,IdMessageParts;
procedure TForm5.Button1Click(Sender: TObject);
var
file_ : TIdMessagePart;
begin
IdSMTP1.Disconnect;
// msg := TIdMessage.Create(nil);
IdSMTP1.Connect;
file_ := TIdAttachmentFile.Create(IdMessage1 .MessageParts, 'c:\1\1.zip'); ////Вот сдесь ошибка!!!!!!!
IdSMTP1.Send(IdMessage1);
end;
|