Porque no funciona Try Catch??

[ecfisa]

Hola.

Para que no se pare la ejecución del programa con la excepción hace lo siguiente:

Tools -> Debugger Options -> Language Exception -> Desmarcá la opción: Stop on Delphi Exceptions

Saludos.

[rogeliogamberro]

Muchisimas gracias por sus respuestas. Han sido de gran ayuda. Ahora me queda una duda con respecto a la verificacion del ingreso de datos tipo TDateTime o TDate. Alguno puede sugerirme como hacer la verificación de forma eficiente suponiendo que el usuario escribe la fecha o fecha y hora en un Edit? Muchas Gracias!

[ecfisa]

Hola rogelio.

Yo lo haria con TMaskEdit, te va a evitar un montón de verificaciones...
La máscara podés definirla en diseño desde la propiedad EditMask del TMaskEdit haciendo doble click sobre ella.
En el ejemplo la defino por código por que resulta más claro que explicar todos los pasos para hacerlo en forma visual.

Un ejemplo muy sencillo como para orientarte:

...
/* Form1 OnShow: ajustar máscara  */
void __fastcall TForm1::FormShow(TObject *Sender)
{
MaskEdit1->EditMask = "!99/99/0000;1;_"; // mascara: dd/mm/aaaa
 MaskEdit1->Text = "";
 MaskEdit1->AutoSelect = false;
}

/* MaskEdit OnExit: verificar que la fecha es válida */
void __fastcall TForm1::MaskEdit1Exit(TObject *Sender)
{
  if (MaskEdit1->Text != "") {
    try {
      StrToDate(MaskEdit1->Text);
    }
    catch (...) {
      ShowMessage("Error en la fecha ingresada");
      MaskEdit1->SetFocus();
    }
  }
}

Para más información sobre las máscaras, busca en la ayuda de Builder con la palabra : FormatMaskText

Saludos.