Real48 to Double

Hej

Jeg vil gerne konvertere en Real48 til en Double ... følgende kode virker ikke:

procedure TForm1.Button1Click(Sender: TObject);
var Test1 : Real48;
    Test2 : Double;
begin
  Test1 := 5325.2;
  Test2 := Test1;
end;

Hvordan gør jeg ?

MVH Justin Case