کدی برای قراردادن کرسر در مختصات دلخواه در ریچ ادیت

procedure SetCursoreXY(tempRichEdit: TRichEdit; Colonna, Riga: Integer);
var
CharRange: TCharRange;
begin
CharRange.cpMin := tempRichEdit.Perform(EM_LINEINDEX, Riga, 0) + Colonna;
CharRange.cpMax := CharRange.cpMin;
tempRichEdit.Perform(EM_EXSETSEL, 0, LPARAM(@CharRange));
tempRichEdit.Perform(EM_SCROLLCARET, 0, 0);
tempRichEdit.SetFocus
end;