Probier mal folgendes:
Code:
...
type
TConvert32Bit = (Conv_AsFloat, Conv_AsInteger, Conv_AsByte, Conv_AsChar, Conv_AsSingle);
TConvertRecord = record
case TConvert32Bit of
Conv_AsFloat : (FloatValue : Double);
...
Damit kann man kein Single konvertieren. Es kommt zwar was raus, aber es ist völliger Schrott.