uses IdSMTP, IdMessage, IdSSL, IdSSLOpenSSL, IdText, IdExplicitTLSClientServerBase;

procedure TForm2.SendEmail;
var
 SMTP: TIdSMTP;
 Message: TIdMessage;
 SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
 TextPart: TIdText;
begin
 SMTP := TIdSMTP.Create(nil);
 Message := TIdMessage.Create(nil);
 SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
 try
   // SMTP yapılandırması
   SMTP.Host := host.text ;// Kurumsal SMTP sunucu adresi
   SMTP.Port := strtoint(port.text); // TLS için port numarası
   SMTP.Username := email.text ; // Kullanıcı adı
   SMTP.Password := password.text ; // Şifre
   SMTP.IOHandler := SSLHandler;
   SMTP.UseTLS := utUseExplicitTLS; // TLS kullanımı

   // SSL/TLS yapılandırması
   SSLHandler.SSLOptions.Method := sslvTLSv1_2; // TLS versiyonu
   SSLHandler.SSLOptions.Mode := sslmClient;

   // E-posta mesajının yapılandırılması
   Message.From.Address := fromaddress.text;
   Message.Recipients.EmailAddresses := recipientmail.text; // Alıcı e-posta adresi
   Message.Subject := 'Test Subject';
   TextPart := TIdText.Create(Message.MessageParts);
   TextPart.Body.Text := 'This is a test email.';
   TextPart.ContentType := 'text/plain';

   try
     // Bağlantıyı başlat
     SMTP.Connect;
     if SMTP.Authenticate then
     begin
       SMTP.Send(Message);
       memo1.lines.add('Email sent successfully.');
     end
     else
     begin
       memo1.lines.add('Authentication failed.');
     end;
   finally
     SMTP.Disconnect;
   end;
 except
   on E: Exception do
     memo1.lines.add('Error: ' + E.Message);
 end;
 // Belleği temizle
 SMTP.Free;
 Message.Free;
 SSLHandler.Free;
end;