Mira en configuración regional lso separadores de miles y decimales que tengas configurados. Si el problema es ese, puedes solucionarlo así
Código:
var
OldDS, OldTS: Char;
begin
OldDS := DecimalSeparator;
OldTS := ThousandSeparator;
DecimalSeparator := '.';
ThousandSeparator := ',';
// operaciones
DecimalSeparator := OldDS;
ThousandSeparator := OldTS;
end;