1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Procedure MarkInRichEdit(Const ATargetRichEdit: TRichEdit);
Begin
  ATargetRichEdit.SetFocus;
  ATargetRichEdit.SelStart := 0;
  ATargetRichEdit.SelLength := Length(ATargetRichedit.Text);
End; {* Function *}



Procedure TFrmChild.MarkX(Sender: TObject);
Begin
  MarkInRichEdit(RichEdit1);
End; {* Procedure *}					

1:
2:
3:
4:
5:
6:

procedure TMainform.Button1Click(Sender: TObject);
begin
  RichEdit1.SelectAll;
  RichEdit1.SetFocus;
  RichEdit1.Perform(WM_VScroll, SB_Top, 0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TMainform.Button1Click(Sender: TObject);
begin
  RichEdit1.SetFocus;

  // Ggf. zum Anfang des Dokumentes springen
  RichEdit1.SelStart := RichEdit1.Perform(EM_LineIndex, 0, 0);
  RichEdit1.Perform(EM_ScrollCaret, 0, 0);

  // Tastendruck Ctrl+A senden
  Keybd_Event(VK_Control, 0, 0, 0);
  Keybd_Event(VkKeyScan('A'), 0, 0, 0);
  Keybd_Event(VkKeyScan('A'), 0, KeyEventF_KeyUp, 0);
  Keybd_Event(VK_Control, 0, KeyEventF_KeyUp, 0);
end;