Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x, x1, x2, L, R : Double;
begin
x := 42.0;
// Beispielwert
x := Abs(x);
x1 := x;
x2 := x;
Inc(PInt64(@x1)^);
Dec(PInt64(@x2)^);
L := x1 - x;
R := x - x2;
ShowMessageFmt('
%e / %e', [L,R]);
end;
PS: das war jetzt die Quick & Dirty Methode, die aber meistens funktioniert