aber an welcher stelle muss ich dann nun die critical section einführen?
so?

zusammenfalten · markieren

Delphi-Quellcode:

TTest = class(TObject)
private
  FCS : TCriticalSection;
public
  procedure test();
end;

procedure test();
begin
  FCS.Enter();
  try
    { ... }
  finally
    FCS.Leave();
  end;
end;

oder so?

zusammenfalten · markieren

Delphi-Quellcode:

TTest = class(TObject)
private
  
public
  procedure test();
end;

procedure test();
var
  CS : TCriticalSection;
begin
  CS.Enter();
  try
    { ... }
  finally
    CS.Leave();
  end;
end;

also lokal oder global???

sollte wohl noch dazu sagen, dass ich von einem thread, außerhalb der klasse, aus auf die test-methode zugreife.

Denk mal nach:
Global: Zugriff nur auf jeweils eine Instanz der Klasse.
Lokal: Zugriff nur auf ein Objekt.

Wenn du nur von TObject ableitest, dann kanst du gleich von TSimpleSync oder TMultiReadExclusiveWriteSynchronizer=TRWESync (oder so ähnlich) ableiten und die Methoden beginread und beginwrite (endread und endwrite) nutzen.