memo nesnesine geri alma - undo özelliği kazandırma

{memoda geri alma}
Memo1.Perform(EM_UNDO, 0, 0);
 
{------------------------------------------------------------------------------}
 
{undo yapıldığını tespit etme}
if Memo1.Perform(EM_CANUNDO, 0, 0) <> 0 then begin
ShowMessage('Undo');
end;