Модуль: SysUtils

Описание
Функция преобразовывает строковое представление числа с плавающей запятой в значение типа Currency. В строке допускаются следующие символы: '+' или '-', цифровые символы, точка (десятичный разделитель), знак экспоненты 'E' или 'e', сопровождаемый целым числом со знаком. Пробелы в начале и конце строки игнорируются. Разделители тысяч и символы валюты в синтаксисе строки не допускаются. Символ, который должен использоваться в качестве десятичной точки, определяется глобальной переменной DecimalSeparator. Если строка содержит недопустимое значение, то возникает исключение EConvertError.

Пример
var
   Sum: Extended;
begin
  try
     Sum:= StrToCurr (Edit1.text);
  except
     MessageDlg( 'Сумма указана не верно!', mtInformation, [mbOk], 0);
  end;
end;