1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

//*******************************************************
procedure TForm6.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if AWorkMode = wmWrite then
  begin
    form6.ProgressBar1.Position:=AWorkCount*100 div 1024;
  end;
end;
//*******************************************************

//*******************************************************
procedure TForm6.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  form6.ProgressBar1.Max:=AWorkCountMax div 1024;
end;
//*******************************************************					

1:

IdMessage1.Body.Assign(Form6.Memo1.Lines);					

1:
2:

TIdAttachment.Create(IdMessage1.MessageParts,trim(form1.Table1.fieldbyname
                 ('filename').asstring));					

1:

IdSMTP1.Send(IdMessage1);