VCL Delphi

Title: UNDO in memo fields?
// You can undo with the following code:
// So kann man den letzten Bearbeitungsschritt rückgängig machen:
Memo1.Perform(EM_UNDO, 0, 0);
// To Detect if Undo imformation is available:
// Testen, ob eine Rückgängig-Operation möglich ist:
ButtonUndo.Enabled := Memo1.Perform(EM_CANUNDO, 0, 0);
ButtonUndo.Enabled := Memo1.CanUndo; // in Delphi 4 or higher
// To clear the Undo buffer:
// Den Textpuffer für Rückgängig löschen:
Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);
Memo1.ClearUndo; // in Delphi 4 or higher