[Delas]

Всем Доброго времени суток помогите разобратся с кодом.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Msg: TIdMessage;
begin
smtp1.Host:='smtp.mail.ru';
smtp1.Port:=25;
smtp1.AuthenticationType:=atLogin;
smtp1.Username:='логин';
smtp1.Password:='пароль';
smtp1.Connect(5000);

//with smtp1 do
//begin
msg.Subject:='Тема письма';
msg.Recipients.EMailAddresses:='адрес получателя';
msg.From.Address:='отправителя';
msg.Body.Text:='текст сообщения?';
msg.Date:=StrToDate('27.12.2010');
//end;
if smtp1.Connected then
begin
smtp1.Send(msg);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
smtp1.Disconnect;
sleep(500);
close;
end;
end.

и почемуто оно не посилает письмо на почту что не так сделано подскажите?
То что в закоментировано раньше тоже юзал но как небыло ефекта уже пробовал разные варианты.

[lmikle]

А кто будет Msg создавать?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Msg: TIdMessage;
begin
smtp1.Host:='smtp.mail.ru';
smtp1.Port:=25;
smtp1.AuthenticationType:=atLogin;
smtp1.Username:='логин';
smtp1.Password:='пароль';
smtp1.Connect(5000);


Try
msg := TIdMessage.Create; // посмотри, может тут параметр нужен, тогда укажи Nil

msg.Subject:='Тема письма';
msg.Recipients.EMailAddresses:='адрес получателя';
msg.From.Address:='отправителя';
msg.Body.Text:='текст сообщения?';
msg.Date:=StrToDate('27.12.2010');
//end;
if smtp1.Connected then
begin
smtp1.Send(msg);
end;

finally
  msg.free;
end;
end;

[Delas]

Понял спасибо!!1