[Помогите!] [Delphi] В чем ошибка?

[AlekseyKonov]

Помогите, написал программу, чтобы она с майла на майл сообщения слала. Но при нажатии кнопки (чтобы отправить письмо), выползает ошибка!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdMessage, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    Button1: TButton;
    IdMessage1: TIdMessage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Msg: TidMessage;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

idSMTp1.Host:='smtp.mail.ru';
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:='fafaf.fafaf.1996';
idSMTP1.Password:='321019671869181a';

Msg.Subject:='Тема сообщения'; // тема сообщения
Msg.Recipients.EMailAddresses:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; // адрес получателя
Msg.From.Address:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; // отправитель письма
Msg.From.Name:='Ацамаз Датиев';
Msg.Body.Text:='текст сообщения'; // текст сообщения
Msg.Date:=Date; // дата отправки

idSMTP1.Connect(5000);
if idSMTP1.Connected = true then
idSMTP1.Send(Msg);
idSMTP1.Disconnect;
end;

end.

[Dimedrol1536]

что за ошибка.
А попробуй с рамблера слать письмо.

[AlekseyKonov]

Цитата: Сообщение от Dimedrol1536 что за ошибка. А попробуй с рамблера слать письмо.

Ошибка все равно вылезает!
[Ссылки могут видеть только зарегистрированные пользователи. ]

[NebesaBag]

Попробуй бряки поставить, чтобы выявить строку с ошибкой, благо кода мало и можно быстро найти.
ПС бряк- это когда кликаешь чуть левее от кода и строка станет подсвеченной.

[RenatPro]

Цитата: Сообщение от AlekseyKonov Ошибка все равно вылезает! [Ссылки могут видеть только зарегистрированные пользователи. ]

Посмотри в процессах у тебя походу первая копия программы не закрыта.

[Рэйзор]

Цитата: Сообщение от RenatPro Посмотри в процессах у тебя походу первая копия программы не закрыта.

О Господь, что ж здесь твориться то

Ладно, никто не видит, что объект Msg: TidMessage не инициализирован, так еще и перевести Access Violation не могут

Msg := TidMessage.Create;

P.S написал он "программу"
Хоть бы 2 страницы из любой книжки прочитал ( ну или вообще хоть чего-нибудь ), прежде чем "писать". Не было бы таких вопросов.

[~Керя~]

[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]