"Boolean-Roulette" oder "if x=true"

[glkgereon]

Hi,

Ein freund im Info-Kurs hat sich gerade eine BoolToStr-Funktion geschrieben...
(Wir haben noch Delphi 4 :-/ )

das ganze sah dann in etwa so aus:

Delphi-Quellcode:

function BoolToStr(Val: Boolean): String;
begin
  Result:='Undefined'; //Debug
  if Val=True then Result:='True'
  else if Val=False then Result:='False';
end;

Interessanterweise kam oft 'Undefined' raus.
Wieso ist (Val=True) False wenn Val=True ist?
Will der mich verarschen?