versuch mal
{Form1.}ActiveControl := RichEdit1;
Aber wenn auch die Cursorposition im Editfeld wieder angesprungen werden soll, so mußt du diese vorher auch noch speichern.
z.B.:
Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender: TObject);
Var P: Integer;
Begin
P := RichEdit1.SelStart;
...
ActiveControl := RichEdit1;
RichEdit1.SelStart := P;
End;