[...]
TblEml->Insert();
TblEml->Fields->Fields[ APP ]->AsString = ModlCode;
TblEml->Fields->Fields[ OPC ]->AsString = "ENTI";
TblEml->Fields->Fields[ FRA ]->AsString = SmtpFrom;
TblEml->Fields->Fields[ FRN ]->AsString = "SECCION";
TblEml->Fields->Fields[ RPL ]->AsString = SmtpFrom;
TblEml->Fields->Fields[ TOA ]->AsString = emlAlm;
TblEml->Fields->Fields[ TCC ]->AsString = "";
TblEml->Fields->Fields[ TBC ]->AsString = "";
TblEml->Fields->Fields[ FCH ]->AsDateTime = TS;
TblEml->Fields->Fields[ TIT ]->AsString = "título del mail";
TblEml->Fields->Fields[ MSG ]->AsString = HtmlText;
TblEml->Fields->Fields[ NAT ]->AsInteger = 0;
TblEml->Fields->Fields[ ATN ]->AsString = "";
TblEml->Fields->Fields[ ATD ]->AsString = "";
TblEml->Fields->Fields[ STP ]->AsString = "H";
TblEml->Fields->Fields[ CNF ]->AsString = "";
TblEml->Fields->Fields[ HPR ]->AsString = "";
TblEml->Fields->Fields[ EST ]->AsString = "P";
TblEml->Fields->Fields[ ERR ]->AsInteger = 0;
TblEml->Fields->Fields[ NTR ]->AsInteger = 0;
TblEml->Fields->Fields[ TRC ]->AsString = "";
TblEml->Fields->Fields[ TMI ]->AsDateTime = Now();
TblEml->Post();
Sleep(1000); result = TblEml->ApplyUpdates(-1); <---- AQUI MUERE
if (result > 0 )
[...]