Fließkommazahlen auf Gleichheit prüfen

[Luckie]

Jeder weiß, oder sollte wissen, dass man dies nicht tun sollte. Warum, das werde ich noch zeigen. Allerdings bräuchte ich mal ein kleines Delphi-Beispiel, um dies zu zeigen.

Folgendes geht leider:

Delphi-Quellcode:

var
  a: Double;
  b: Double;

begin
  a := 19.3;
  b := 2 * 9.65;

  if a = b then
    Writeln('gleich')
  else
    Writeln('ungleich');
  Readln;

Ich bräuchte aber ein entsprechende Beispiel, beim dem die Abfrage auf Gleichheit nicht funktioniert.