var
    SData: Single;
    WData: array [1..2] of Word absolute SData;
//．．．と、このように宣言すると


    SData:='10.111';
//SDataにSingle値を入れるだけで
//WData[2], WData[1]に分けられる。