[DELPHI] Login con scelta modalità di autenticazione

[camaleonteplus]

vorrei attivare una scelta qualdo invio l'email con login e non login ho fatto cosi ma non funziona, per il login ho usato il componente TradioBotton.

procedure TForm1.SpedisciClick(Sender: TObject);
begin
//setup SMTP
SMTP.Host := Server.Text;
SMTP.Port := 25;
SMTP.MailAgent := Agent.Text;
//setup mail message
 MailMessage.From.Address := Da.Text;
 MailMessage.From.Name := Nome.Text;
 MailMessage.Recipients.EMailAddresses :=
 A.Text + ' ' + Lista.Text;
 MailMessage.CCList.EMailAddresses := CC.Text;
 MailMessage.BccList.EMailAddresses := Ccn.Text;
 MailMessage.Subject := Oggetto.Text;
 MailMessage.Body.Text := Messaggio.Text;
 if FileExists(Allegato.Text) then
 TIdAttachment.Create(MailMessage.MessageParts,
                        Allegato.Text);
//send mail
 try
 try
 SMTP.Connect(10000);
 SMTP.Send(MailMessage);
 except on E:Exception do
 Messaggio.Lines.Insert(0, 'Errore: ' + E.Message);
 end;
 finally
 if SMTP.Connected then
    SMTP.Disconnect;
Status.Caption := 'Email Inviata';
end;
end;

procedure TForm1.AutentificatoClick(Sender: TObject);
begin
Smtp.Username := Username.Text;
Smtp.Password := Password.Text;
Smtp.AuthenticationType := atLogin;
end;