Глюк обнаружен на текущей версии Lazarus. При проверке числа простым кодом:

code:
Val(Stroka,Result,I);
  if I<>0 then
    Result:=-1;

При передаче параметра Stroka='88E6852-123'; программы вылетает по ошибке "Float Point Overflow". Какие предложения по обходу глюка? Я решил проблему, добавив кусок:

code:
For I:=1 to Length(Stroka) do
  if not (Stroka[I] in ['0'..'9','.']) then begin
    Result:=0.0;
    exit;
  end;

Очевидно, это отсекает вышеприведённый вариант, н ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83365