Threadsafe Ausgabe in TRichedit

[bernhard_LA]

wenn ich mit folgender Funktion

Delphi-Quellcode:

procedure AddFormatedLine(ARichEdit: TRichEdit; AText: string; AColor: TColor;
  BoldFlag: Boolean; UnderlineFlag: Boolean);
begin
  with ARichEdit do
  begin
    SelStart := Length(Text);
    SelAttributes.Color := AColor;
    SelAttributes.Size := 8;
    SelAttributes.Name := 'MS Sans Serif';
    if UnderlineFlag then
      SelAttributes.Style := SelAttributes.Style + [fsunderline]
    else
      SelAttributes.Style := SelAttributes.Style - [fsunderline];
    if BoldFlag then
      SelAttributes.Style := SelAttributes.Style + [fsbold]
    else
      SelAttributes.Style := SelAttributes.Style - [fsbold];

    Lines.Add(AText);
  end;
end;



procedure TErrorListViewForm.AddFormatedStringTomemo(  NewLine: String);
var   AColor: TColor;
  BoldFlag: Boolean;
  UnderlineFlag: Boolean;
  AcolorStr : String;

begin
      if (Pos('B+', NewLine) > 0) then
      begin
        BoldFlag := true;
        delete(NewLine, Pos('B+', NewLine), 2);
      end;
      if (Pos('B-', NewLine) > 0) then
      begin
        BoldFlag := false;
        delete(NewLine, Pos('B-', NewLine), 2);
      end;

      if (Pos('U+', NewLine) > 0) then
      begin
        UnderlineFlag := true;
        delete(NewLine, Pos('U+', NewLine), 2);
      end;
      if (Pos('U-', NewLine) > 0) then
      begin
        UnderlineFlag := false;
        delete(NewLine, Pos('U-', NewLine), 2);
      end;


      if (Pos('cl', NewLine) > 0) then
      begin
        AcolorStr  := Copy(NewLine, Pos('cl', NewLine)+2, 1);

        if  (AcolorStr='B') then AColor :=clBlack;
        if  (AcolorStr='R') then AColor :=clRed;
        if  (AcolorStr='G') then AColor :=clGreen;
        if  (AcolorStr='Y') then AColor :=clYellow;
        if  (AcolorStr='M') then AColor :=clBlue;

        delete(NewLine, Pos('U+', NewLine), 3);
      end;



      AddFormatedLine(PErrorMemo, NewLine, AColor, BoldFlag,
        UnderlineFlag);


end;

aus einem Thread heraus in mein Richedit schreiben will kommt es zu einem OutOfResource Error.

a) vermutlich weil VCL nicht Threadsafe und deshalb knallt es hier .....
b) kann ich mein Richedit gegen MultiTread Zugriff absichern ?