Swap

procedure Swap(

  var X: Boolean;

  var Y: Boolean

); overload;

procedure Swap(

  var X: Byte;

  var Y: Byte

); overload;

procedure Swap(

  var X: Word;

  var Y: Word

); overload;

procedure Swap(

  var X: Word32;

  var Y: Word32

); overload;

procedure Swap(

  var X: ShortInt;

  var Y: ShortInt

); overload;

procedure Swap(

  var X: SmallInt;

  var Y: SmallInt

); overload;

procedure Swap(

  var X: Int32;

  var Y: Int32

); overload;

procedure Swap(

  var X: Int64;

  var Y: Int64

); overload;

procedure Swap(

  var X: Single;

  var Y: Single

); overload;

procedure Swap(

  var X: Double;

  var Y: Double

); overload;

procedure Swap(

  var X: Currency;

  var Y: Currency

); overload;

procedure Swap(

  var X: string;

  var Y: string

); overload;

procedure Swap(

  var X: TObject;

  var Y: TObject

); overload;

procedure Swap(

  var X: Pointer;

  var Y: Pointer

); overload;