konvertering af Double til 8 bytes

Hej

Jeg har brug for at konvertere en double til x antal bytes.
I delphis hjælp har jeg set at:

Type    Range            Significant digits    Size in bytes
Double    5.0 x 10^-324 ..  15-16                    8
        1.7 x 10^308

så jeg kunne forestille mig noget lignende

Var
  i : Integer ;
  D : Double ;
  ByteArray : array[0..7] of byte

begin 
  for i := 0 to 7 do begin
    ByteArray[i] := D * og det er så her jeg har brug for hjælp
  end ;
end ;

og hvis der så samtidig er nogen der kan forklare mig hvordan man kan skrive 1.7 x 10^308 med kun 8 bytes ? eller læser jeg det forkert ?

/Screwdriver