[Roman_s]

Пишу прогу вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, IdTCPServer, IdSMTPServer, IdBaseComponent,   IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,   IdMessage, Mask, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     IdSMTP1: TIdSMTP;     IdSMTPServer1: TIdSMTPServer;     Edit1: TEdit;     IdMessage1: TIdMessage;     Button2: TButton;     Label1: TLabel;     CheckBox1: TCheckBox;     Label2: TLabel;     Label3: TLabel;     ComboBox1: TComboBox;     Label4: TLabel;     Label5: TLabel;     Image1: TImage;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin IdSMTP1.Port:=25; IdSMTP1.Host := 'smtp.mail.ru'; IdSMTP1.AuthenticationType:=atLogin; IdSMTP1.Username:='sdfsdfsdfsdf'; IdSMTP1.Password:='sdfsdfsdfsdf'; IdMessage1.Subject:=edit1.text; {òåìà ñîîáùåíèÿ} IdMessage1.Recipients.EMailAddresses:='sdfsdfsdfsdf@mail.ru'; IdMessage1.From.Address:='sdfsdfsdfsdf@mail.ru'; IdMessage1.Body.Assign(Memo1.Lines);   try try IdSMTP1.Connect(5000); IdSMTP1.Send(IdMessage1); except on E:Exception do Memo1.Lines.Insert(0, 'ERROR: ' + E.Message); end; finally if IdSMTP1.Connected then IdSMTP1.Disconnect; end; end;   end.

Она отправляет письма на мыло !!!
Подскажите плиз что и куда надо добавить чтобы она ещё с письмом отсылала прикреплённый файл !!!???!!!