Du schaust halt mal, bis zu welchem Wert Du mit Deiner Routine korrekt arbeiten kannst und fragst den an geeigneter Stelle im Programm ab.
Delphi-Quellcode:
const
Maximalwert: Double = 100000000; // als Beispiel
var
Eingabe : Double;
// an geeignetet Stelle:
if Eingabe > MaxDouble then begin
MessageDlg(Format('Der Eingabewert %f übersteigt den zulässigen Maximalwert von %f.',[Eingabe,Maximalwert]),mtError,[mbOk],0);
end else begin
// Beliebige Berechnung, Verarbeitung, Ausgabe ...
end;