SwapSingle procedure
procedure
SwapSingle(Var A, B: Single);
Unit
TeCanvas