Result auf Typ Single reduzieren: geht nicht!

[Luckie]

Dazu kan ich nur sagen:

Delphi-Quellcode:

function FSquare(x: double): double;
begin
  result := x * x;
end;

function PythDistance(x1, y1, x2, y2: integer): single;
begin
  result := (sqrt(Fsquare(x1 - x2) + Fsquare(y1 - y2)));
end;

lässt sich ohne weiteres kompilieren. Sogar mit den überflüssigen exits am Ende der Prozeduren.