Ребята, IdSMTP1 может посылать письмо с файлом? Если “да”, к

[IkaMazini]

Ребята, IdSMTP1 может посылать письмо с файлом? Если “да”, как это делать?
и когда я посылаю письмо с файлом, хочу чтоб этот процесс в StatusBar1-е или
в ProgressBar1-е било видно. Пожалуйста помогите! *WinXP. Delphi 7. *
* * * * * * * * * * * С уважением, Ika Mazini. *

[IkaMazini]

procedure TForm1.Button1Click(Sender: TObject);
var
*Mes : TIdMessage;
begin
*IdSMTP1.Connect;
*Mes := TIdMessage.Create(self);
*Mes.Recipients.EMailAddresses := Edit1.Text;
*Mes.ReplyTo.EMailAddresses := Edit2.Text;
*Mes.From.Address := Edit3.Text;
*Mes.Name := Edit4.Text;
*Mes.Subject := Edit5.Text;
*Mes.Body.Text := Memo1.Text;
* *// Attachment не могу сделать!
*IdSMTP1.Send(Mes);
begin
*IdSMTP1.Disconnect;
end;
end;