RichEdit Text Rückgängig und Widerherstellen

[Tau]

Hallo Leute

habe noch ein kleines Problem mit dem Rückgängig und Wiederherstellen
vom Text im RichEdit

zur zeit verwende ich den folgenden Code

Delphi-Quellcode:

// Text Rückgängig
procedure TForm1.TB07Click(Sender: TObject);
begin                                                                   
   with cxRichMemo1 do
      if HandleAllocated then SendMessage(cxRichMemo1.InnerMemo.Handle, EM_UNDO, 0, 0)
end;

// Text Wiederherstellen
procedure TForm1.TB08Click(Sender: TObject);
begin                                                                   
   with cxRichMemo1 do
      if HandleAllocated then SendMessage(cxRichMemo1.InnerMemo.Handle, EM_REDO, 0, 0)
end;

bin aber mit dem Ergebnis leider nicht ganz zufrieden.
Beim der Funktion rückgängig wird leider nur ein schritt gemacht.

Gibt es eine Möglichkeit das man mehrere Schritte zurück gehen kann ?

Wenn ja wie währe ich für einen Tipp sehr dankbar.

Mit Grüssen
Tau

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]