Threadsafe Ausgabe in TRichedit

[bernhard_LA]

Wenn ich in meiner StringList die add funktion überschreibe und hier die StringListe sperre (lockList) GlobalStringList.OnStringAdded := AddStr2List;, dh. der VCL Zugriff erfolgt noch im OnstringsAdd Event der StringListe, ist dies ein Denkbarer Weg um nur mit einem Thread in die VCL (Richedit) zu schreiben ? Nur funtioniert mein Code weiter unten leider nicht

Delphi-Quellcode:

procedure TForm.AddStr2List(.....);
var  FLock: TRTLCriticalSection;

begin


    InitializeCriticalSection(FLock);

    EnterCriticalSection(FLock);

    StringListViewForm.ErrorStrList := GlobalErrorList;

    StringListViewForm.ErrorStringList2memo;

    LeaveCriticalSection(FLock);

    DeleteCriticalSection(FLock);


  end
  else
    //
    DisplayStatusStr(' Message : ' + aStr);

end;