Отправка емайла

unit Unit5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP;
 
type
  TForm5 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure IdMessage1InitializeISO(var VTransferHeader: TTransfer;
      var VHeaderEncoding: Char; var VCharSet: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
  var VHeaderEncoding: Char; var VCharSet: String);  Msg: TIdMessage;
begin
 
 
 
Msg.Subject:='òåìà ñîîáùåíèÿ';                  //òåêñò òåìû ñîîáùåíèÿ
Msg.Recipients.EMailAddresses:='bogdanwe@mail.ru';
//óêàçûâàåì àäðåñ ïîëó÷àòåëÿ 
Msg.From.Adress:='delphi@mail.ru';           //óêàçûâàåì àâòîðà ïèñüìà
Msg.Body.Text:='òåêñò ñîîáùåíèÿ';           //ðàçìåùàåì òåêñò ñîîáùåíèÿ
Msg.Date:=StrToDate('01.12.2004');  //äàòà îòïðàâêè ïèñüìà ìîæåò áûòü ëþáîé
 
 
 
end;
 
end.

    procedure IdMessage1InitializeISO(var VTransferHeader: TTransfer;