Подскажите как правильно?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdAntiFreezeBase, IdAntiFreeze,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, ExtCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label3: TLabel;
    Button3: TButton;
    Edit3: TEdit;
    Label4: TLabel;
    Button4: TButton;
    Image2: TImage;
    CheckBox1: TCheckBox;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') then
begin
panel1.Visible:=true;
end
else
GroupBox1.Visible:=false;
button1.Enabled:=false;
timer1.Enabled:=true;
idSmtp1.Host:='smtp.yandex.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='popoff******';
idSmtp1.Password:='*******';
idMessage1.Body.Text:=memo1.text ;
idmessage1.From.Text:='popoff*****@yandex.ru';
idmessage1.Recipients.EMailAddresses:='sergeipopov*******@yandex.ru';
idmessage1.Subject:='tema';
 
 
idSmtp1.Connect();
if idsmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idsmtp1.Disconnect;
 
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.Enabled:=true;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
panel1.Visible:=false;
end;
 
end.