Delphi-Quellcode:
var
Test : array [0..0] of TVarRec;
extendedVal: Extended;
begin
extendedVal := StrToFloat(Edit1.text);
Test[0].VExtended := @extendedVal;
Label1.Caption := Format('%8.2f', [extended(Test[0].VExtended^)]);
so klappte es bei mir.
schau dir aber sicherheitshalber noch einmal die dokumentation zu tvarrec an.
wenn du was neues weist poste mal bitte.
interessiert mich auch das ganze.