//Пример кода : Преобразование научного формата числовой строки 
var
  stringValue : string;
  currValue   : Currency;

begin
  // Установка исходной строки, содержащую представление числа
  stringValue := '123.456E+002';

  // Её преобразование в вещественное число
  currValue  := StrToCurr(stringValue);

  // И показ значения
  ShowMessage(stringValue+' = '+CurrToStr(currValue));
end;

//Пример кода : Захват ошибок строковых преобразований 
var
  A : Currency;

begin
  // Мы захватим конверсионные ошибки
  try
    A := StrToCurr('10 E 2');    // Средние пробелы не поддерживаются
  except
    on Exception : EConvertError do
      ShowMessage(Exception.Message);
  end;

  try
    A := StrToCurr('$FF');    // Шестнадцатеричные значения не поддерживаются
  except
    on Exception : EConvertError do
      ShowMessage(Exception.Message);
  end;
end;