VCL Delphi

//drony@mynet.com
//icq:266148308
{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;