[VasyaPupkin81]

Порылся в своих исходниках и вот еще что обнаружил:

Код:

procedure NumericKor(Edit: TEdit);
begin
  if Edit.Text <> '' then
  begin
    try
      StrToFloat(Edit.Text);//если поменять StrToFloat на StrToDate, то также можно контролировать правильность введения даты
    except
      Edit.SetFocus;
      MessageBeep(0);
      raise Exception.Create('"' + Edit.Text + '" - некорректное число');
      Exit;
    end
    Edit.Text := FloatToStr(StrToFloat(Edit.Text));
  end
  else
    Edit.Text := '0';
end;

Чем-то схоже это решение с решением detrin, единственное существеyное отличие, что мою процедуру нужно вставлять в событие OnExit компонента TEdit