Bug report bei type casting

program main;

{$WG}                // global Warnings

Device = xmega32A4, VCC=3.3;

Define_Fuses
    Override_Fuses;
    NoteBook   = A;
    COMport    = USB;
    LockBits0  = [];
    FuseBits0  = [];
    FuseBits1  = [];
    FuseBits2  = [];
    FuseBits5  = [BODLEVEL0, BODLEVEL2, BODACT0];   //BOD = 2.96V

Import
    SysTick,
    SerPortC1;
    
From System Import
    LongWord, LongInt, Float;

Define
    //OSCtype = int32MHz, PLLmul=4, prescA=1, prescB=1, prescC=1;
    OSCtype = extXTAL=8000000, PLLmul=4, prescA=1, prescB=1, prescC=1;
    SysTick        = 10;             {msec}
    StackSize      = 512, iData;
    FrameSize      = 512, iData;
    SerportC1      = 19200;
    
Implementation

{$IDATA}

var
  zahl    : float;
  intzahl : longint;

begin
    zahl    := 10;
    intzahl := Longint(-zahl); // simulator diplays $00000000
end main.

program main;

{$WG}                // global Warnings

Device = xmega32A4, VCC=3.3;

Define_Fuses
    Override_Fuses;
    NoteBook   = A;
    COMport    = USB;
    LockBits0  = [];
    FuseBits0  = [];
    FuseBits1  = [];
    FuseBits2  = [];
    FuseBits5  = [BODLEVEL0, BODLEVEL2, BODACT0];   //BOD = 2.96V

Import
    SysTick,
    SerPortC1;
    
From System Import
    LongWord, LongInt, Float;

Define
    //OSCtype = int32MHz, PLLmul=4, prescA=1, prescB=1, prescC=1;
    OSCtype = extXTAL=8000000, PLLmul=4, prescA=1, prescB=1, prescC=1;
    SysTick        = 10;             {msec}
    StackSize      = 512, iData;
    FrameSize      = 512, iData;
    SerportC1      = 19200;
    
Implementation

{$IDATA}

var
minLongInt : Float;
betweenMaxLongIntAndMaxLongWord : Float;
bool : Boolean;
intzahl : LongInt;

begin
  // Bug 1 //
  minLongInt := Float(min(Longint)); // wrong value

  // Bug 2 //
  bool := runerr; // clear runerr
  betweenMaxLongIntAndMaxLongWord := 3000000000; // a value between max(LongInt) and max(Longword)
  intzahl := LongInt(betweenMaxLongIntAndMaxLongWord);
  bool := runerr; // runerr is false, true is right value, isn't it?
end main.