Event verursacht Riched32.dll Exception

[Alois]

Hallo ich habe eine ActiveX-Komponente die in unregelmässigen Abständen Events abfeuert.

In meinem Projekt greift der Event auf das RichEdit-Objekt wie folgt zu:

Delphi-Quellcode:

procedure TForm1.AddLog(s: String);
begin
  Log.SelStart := Log.GetTextLen;
  Log.SelText := '[' + TimeToStr(Time) + '] ' + s + #13 + #10;
end;

Mit dieser Prozedur kommt es zu unregelmässigen Application Exceptions.


Erstaunlicherweise nehmen die Abbrüche ab, wenn ich folgendes als RichEdit-Ereignis einfüge:

Delphi-Quellcode:

procedure TForm1.LogChange(Sender: TObject);
begin
  Log.Perform(EM_SCROLLCARET, 0, 0); // Autoscroll Funktion für das RichEdit
end;

Wie geht man richtig vor um einen Text in das RichEdit-Fenster zu schreiben?

Gruss Alois