Exchange

procedure Exchange(

  var Value1: SmallInt;

  var Value2: SmallInt

); overload;

procedure Exchange(

  var Value1: ShortInt;

  var Value2: ShortInt

); overload;

procedure Exchange(

  var Value1: Integer;

  var Value2: Integer

); overload;

procedure Exchange(

  var Value1: Int64;

  var Value2: Int64

); overload;

procedure Exchange(

  var Value1: Byte;

  var Value2: Byte

); overload;

procedure Exchange(

  var Value1: Word;

  var Value2: Word

); overload;

procedure Exchange(

  var Value1: Cardinal;

  var Value2: Cardinal

); overload;

procedure Exchange(

  var Value1: Single;

  var Value2: Single

); overload;

procedure Exchange(

  var Value1: Double;

  var Value2: Double

); overload;

procedure Exchange(

  var Value1: char;

  var Value2: char

); overload;