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

procedure TForm1.EditUndo(Sender: TObject);
{ letzte Bedieneingabe rückgängig }
begin
 with Richedit1 do
   if HandleAllocated then
      SendMessage(Handle, EM_UNDO, 0, 0);
end;					

1:
2:

  RichEdit1.Perform(EM_SETUNDOLIMIT, 100, 0);   // oder
  SendMessage(RichEdit1.Handle, EM_SETUNDOLIMIT, 100, 0);					

1:
2:

   if SendMessage(Handle, EM_CANREDO, 0, 0) <> 0 then
      SendMessage(Handle, EM_REDO, 0, 0);					

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

const
  EM_REDO = WM_USER + 84;
//  EM_UNDO = $C7; // ist in Delphi schon deklariert

  SendMessage(RichEdit1.Handle, EM_UNDO, 0, 0);
// bzw.
  SendMessage(RichEdit1.Handle, EM_REDO, 0, 0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:

{Hier erstmal die neue Klasse, die mehrfaches Undo / Redo unterstützt:}
  TRichEditX = class(TRichEdit)
  private
    FUndoRedo: IUndoRedo;  {Kann zwar direkt verwendet werden,}
  public  {ist aber wohl schlechter Stil, property ist besser!}
    property UndoRedo: IUndoRedo read FUndoRedo write FUndoRedo;
  end;

{Weiter  mit dem MainForm des Programms:}
  TForm1 = class(TForm)
  //...
    {Benötigt werden u. a. folgende Prozeduren:}
    procedure Undo;
    procedure Redo;
    procedure SetUndoRedo;
    procedure SaveStatusForUndoRedo;
  //...

implementation

//...

procedure TForm1.Undo;
begin
  RichEditX1.UndoRedo.Undo;
  SetUndoRedo;
end;

procedure TForm1.Redo;
begin
  RichEditX1.UndoRedo.Redo;
  SetUndoRedo;
end;

procedure TForm1.SetUndoRedo;
begin
  {Angenommen, wir haben Menü-Items mit den Namen Rckgngig1 und Wiederholen1,}
  {dann wollen wir die ja stets sinnvoll darstellen, zB. Enabled oder eben nicht!}
  Rckgngig1.Enabled := not RichEditX1.UndoRedo.IsFirst; (* Sind wir am Anfang unserer Liste? *)
  Wiederholen1.Enabled := not RichEditX1.UndoRedo.IsLast; (* Oder vielleicht am Ende? *)
end;

procedure TForm1.SaveStatusForUndoRedo;
begin
  if Timer1.Enabled then (* Haben wir den Zustand schon gesichert? *)
  begin
    Timer1.Enabled := False; (* Timer zurücksetzen... *)
    Timer1.Enabled := True;
    Exit;                    (* ...und raus *)
  end;

  (* Originalzustand sichern *)
  RichEditX1.UndoRedo.AddActionToUndo(UEDITMEMO, atUndo, Integer(RichEditX1), 0);
  (* Rückgängig einschalten *)

  (* Timer aktivieren *)
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  (* Timer deaktivieren *)
  Timer1.Enabled := False;
  
  (* Veränderten Zustand sichern *)
  RichEditX1.UndoRedo.AddActionToUndo(UEDITMEMO, atRedo, Integer(RichEditX1), 0);

  SetUndoRedo;
end;

{Angenommen, wir haben eine Prozedur, die ein neues oder das einzige Textfenster erzeugt:}
procedure TForm1.New(const aRichEditX: TRichEditX);
begin
  (* UndoRedo-Interface erzeugen *)
  aRichEditX.UndoRedo := CreateUndoRedo;
  (* Handler registrieren *)
  UEDITMEMO := aRichEditX.UndoRedo.RegisterAction(GetName, AddMemoAction, UndoMemoAction);

  SetUndoRedo;
end;