ошибка при работе с smtp

[Ale}{ander]

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, idmessage, IdAntiFreezeBase,
  Vcl.IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP;

type
  TForm2 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var IdMessage1:TidMessage;
begin
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'Секрет';
IdSMTP1.Password := 'Секрет';
IdMessage1.From.Address:='Секрет';
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := 'Секрет';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;

end.

а вот и код ошибки

Project Project4.exe raised exception class $C0000005 with message 'access violation at 0x005f99e7: read of address 0x0000006d'.

[Son Of Pain]

Напиши в начале процедуры

IdMessage1 := TidMessage.create;