[dr. F.I.N.]

Я бы сделал по-другому:

Код:

var
  numberString : string;
  float        : Extended;
  errorPos     : Integer;
begin
  // Попытка преобразования строки в значение
  Val(numberString, float, errorPos);

  // Показ строки и преобразованного значения

  if errorPos = 0
  then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float])
  else ShowMessageFmt('Val(%s) потерпело неудачу в позиции %d',
                      [numberString, errorPos]);
end;

Поиск знает все