Für extended kannst du das Epsilon so addieren:
Delphi-Quellcode:
function plusepsilone(e : extended):extended;
var h : System.TExtended80Rec absolute e;
begin
h.Frac := h.Frac+1;
Result := e;
end;
(Hinweis: Prüft nicht, ob h.frac maximal = 1111.....111 ist.)