InterlockedExchange en 64 bits

[[AgustinOrtu]]

El problema es que estas usando la funcion incorrectamente

Si vemos la firma de la funcion, tenemos:

Código Delphi [-]
class function Exchange(var Target: Pointer; Value: Pointer): Pointer; overload; static; inline;
class function Exchange(var Target: Integer; Value: Integer): Integer; overload; static; inline;
class function Exchange(var Target: Int64; Value: Int64): Int64; overload; static; inline;
class function Exchange(var Target: TObject; Value: TObject): TObject; overload; static; inline;
class function Exchange(var Target: Double; Value: Double): Double; overload; static; inline;
class function Exchange(var Target: Single; Value: Single): Single; overload; static; inline;
class function Exchangeclass>(var Target: T; Value: T): T; overload; static; inline;

Es importante notar que el primer parametro esta pasado por referencia, de ahi el modificador var

Quiere decir que no se puede enviar por parametro una expresion constante

Un ejemplo de uso correcto de la funcion TInterlocked.Exchange podria ser:

Código Delphi [-]
uses
  System.SyncObjs;

procedure TForm1.Button1Click(Sender: TObject);
var
  A, B, C: Integer;
begin
  A := 1;
  B := 2;
  C := TInterlocked.Exchange(A, B);

  ShowMessageFmt('A = %d, B = %d, C = %d', [A, B, C]);
end;

En donde el cuadro de dialogo imprime el mensaje:

A = 2, B = 1, C = 1

Lo cual es correcto, ya que si revisamos la implementacion de TInerlocked.Exchange, simplemente invoca a otra rutina del compilador, la AtomicExchange, donde la documentación explica:

Writes the given value to the target and returns the previous value of the target.

--

Por otro lado tené muy en cuenta lo que comento Al Gonzalez; para responder con precision deberiamos saber el tipo de FThread

Si bien Delphi hace bastante sencilla la transicion de 32 a 64 bits, hay algunos puntos para revisar:

Revisa esta entrada