InterlockedIncrement in welcher Unit?

[Papaschlumpf73]

Oder du probierst das mal ganz einfach aus:

Delphi-Quellcode:

procedure TFMain.Button1Click(Sender: TObject);
var A: Integer;
begin
A:=1;
Winapi.Windows.InterlockedIncrement(A);
showmessage(A.ToString);
end;

Da sollte dann 2 rauskommen.