🚀 go-pugleaf

Witam!
Mam baze podpieta przez BDE. Na formatce DBEdita polaczonego z polem 
timestamp gdzie wpisuje date. Mam zalozona maske RRRR-MM-DD ale jesli 
ktos wpisze miesiac > 12 lub dzien > 31 to i tak wyswietla sie blad 
"...is not a valid date".
Odsluge bledu zrobilem w SetText pola daty tak jak znalazlem w archiwum:

procedure TEditData.DateSetText(Sender: TField; const Text: String);
const
   SInvalidDate = '''%s'' nie jest poprawna data.';
begin
   try
     Sender.AsDateTime := StrToDate(Text);
   except
     on EConvertError do ShowMessage(Format(SInvalidDate, [Text]));
     Abort; {Jesli to ma byc tylko tlumaczenie, a nie obsluga bledu}
   end;
end;

Ale teraz mam 2 komunikaty - najpierw pierwszy angielski a pozniej drugi 
polski. Trzeba jeszcze gdzies wylaczyc wyswietlanie komunikatu angielskiego?

Tomek