Foros Club Delphi - Error en tiempo de ejecuccion

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Error en tiempo de ejecuccion (https://www.clubdelphi.com/foros/showthread.php?t=3913)

Error en tiempo de ejecuccion

Hola foristas.
Tengo una aplicacion X la cual la ejecuto y al llegar a cierta linea saca un error, se el motivo de este error, mi pregunta es como hago para yo personalizar este error (acceder a el), basicamente el error es debido a que esta tratando de convertir una fecha, y esta esta mal ingresada.

Codigo

var
FecDada : TdateTime;
Lmes : byte;
begin
if (GswBot = 1) then
begin
if (Panel2.Enabled) then
begin
Panel2.Enabled := True;
Lmes:= FunDevMes(CBmes.Text); // <===== esta correcto devuelve el mes 'Enero...etc) //
FecDada := StrToDate(CBdia.Text + '/' + IntToStr(Lmes) + '/' + Eano.Text); // <==== aca es donde saca el error que deseo acceder y personalizar <Date invalid> //

Espero me de a entender para que me puedan colaborar.
Gracias.

Una posibilidad puede ser hacer algo así:

Código:

var

  ADate: TDateTime;

begin

  try

    ADate := StrToDate(Edit1.Text);

    ...

  except

    On E: EConvertError do

    begin

      Edit1.Text := '';

      raise EConvertError.Create('Formato de Fecha Errónea');

    end

    else

      raise;

  end;

  ...

end;

Código:

 var

FecDada : TdateTime;

Lmes : byte;

begin

if (GswBot = 1) then

begin

if (Panel2.Enabled) then

begin

Panel2.Enabled := True;

Lmes:= FunDevMes(CBmes.Text); // <===== esta correcto devuelve el mes 'Enero...etc) //

try

FecDada := StrToDate(CBdia.Text + '/' + IntToStr(Lmes) + '/' + Eano.Text); // <==== aca es donde saca el error que deseo acceder y personalizar <Date invalid> //

Except

ShowMessage('Error en la fecha');

end;

Un Saludo.