RichEdit1 Komponente von Delphi 21.0 läßt Programm abstürzen

[paule32.jk]

Hallo,

ich habe eine TRichEdit Komponente auf eine TForm gelegt, und dieser dann ein OnMouseDown Event zugewiesen.
wenn ich dann im laufenden Prozess die Maus im RichEdit klicke passiert nichts.

Wenn ich aber nun Text eingebe, und wieder wahllos innerhalb der RichEdit Komponente klicke, stürzt die Anwendung ab.

Den folgenden Code habe ich dabei als Fehlerquelle lokalisieren können:

Delphi-Quellcode:

procedure TForm2.RichEdit1MouseDown(
  Sender: TObject;
  Button: TMouseButton;
  Shift : TShiftState;
  X, Y  : Integer);
  var
  ClickPos: Integer;
begin
  ClickPos := RichEdit1.Perform(
    EM_CHARFROMPOS, 0, MakeLong(
    RichEdit1.CaretPos.X,
    RichEdit1.CaretPos.Y));

  ShowMEssage('X: ' + inttostr(clickpos));
end;

ich verwende Windows 11 64-Bit Pro, die Anwendung ist aber 32-Bit.