Kann man den Wertebereich eingrenzen ?

[TiGü]

Achso, deine Frage ist aber auch etwas unpräzise.
Dafür gibt es Konstanten in der Unit Math.
Schaue dir an wie sie in der Unit definiert sind und dann weißt du auch wie man Double-Zahlen mit Exponentialschreibweise in Delphi definiert.

Delphi-Quellcode:

program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Math;

var
  YourNumber : Double;

begin
  try
    YourNumber := (Random * Random) / Random;

    if (YourNumber < System.Math.MaxDouble) and (YourNumber > System.Math.MinDouble) then
    begin
      // make magic
       Writeln(YourNumber);
    end else
      YourNumber := 0;

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.