Result auf Typ Single reduzieren: geht nicht!

[Virchov]

Tach!
Die Funktion muss unbedingt eine Variable vom Typ single liefern, mein bescheidener Versuch, result als single zu deklarieren (...result:= (single)...) mißling. Kann sein, dass meine Dummheit einfach unermesslich ist, bin aber ein Newcomer in Delphi

Delphi-Quellcode:

function FSquare (x: double): double;

begin
  result:= x*x;
  exit;
end;

function PythDistance(x1,y1,x2,y2: integer): single;


begin
  result:=  (single) ( sqrt( Fsquare(x1-x2)  + Fsquare(y1-y2) ) );
exit;
  
  
end;