var
  SSL: TIdIOHandler;
  POP3: TIdPOP3;
begin
  ...
  SSL:=TIdIOHandler.Create(nil);
  POP3:=TIdPOP3.Create(nil);
  POP3.IOHandler:=SSL;
  ...
  try
     POP3.Host:=AccountSettings.Edit6.Text;
     POP3.Username:=AccountSettings.Edit7.Text;
     POP3.Password:=AccountSettings.Edit8.Text;
     POP3.UseTLS:=utUseImplicitTLS;