Einmal steht bei der Procedure, single und das andere mal myFloat.
Ich denke, dies ist eine Fehlerquelle, wen man mal bei Type etwas ändert.
Code: Alles auswählen
type
myFloat = single;
procedure Test(f: single);
implementation
procedure Test(f: myFloat);
begin
WriteLn(f);
end;