El cero tiene muchas caras

[roman]

Acabo de ver esto en los grupos de noticias de borland.

¿Algún gurú me podría explicar por qué la siguiente sentencia no sólo no incomoda al compilador sino que además da el resultado correcto?

var
  Cero: Integer;

begin
  Cero := SizeOf(while 1 = 1 do begin end);
end;

// Saludos