[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;