Отправка из Memo на почтовый ящик (Delphi 8)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.ComCtrls, Borland.Vcl.StdCtrls,
  System.ComponentModel;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    ProgressBar1: TProgressBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 begin
idSmtp1.Host:='smtp.yandex.ru';
idSmtp1.Port:=25;
idSmtp1.Username:=''; [email]neroslava6@ya.ru[/email]
idSmtp1.Password:=''; 417741
idMessage1.Body.Text:=Memo1.Text;
idMessage1.Body.Text:=Memo2.Text;
idMessage1.From.Text:=''; [email]neroslava@ya.ru[/email]
idMessage1.Recipients.EMailAddresses:=''; [email]neroslava@ya.ru[/email]
idMessage1.Subject:=''; re
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
var
  Form1: TForm1;
 
implementation
 
{$R *.nfm}
 
end.