perform(wm_undo,0,0)为什么执行不了

procedure TForm1.upbtncancelClick(Sender: TObject);  var
   m:integer;
begin
 for m:=0 to 31 do
 begin
   TEdit(FindComponent('Ed'+inttostr(m))).Perform(WM_UNDO,0,0);//第一条语句
   TEdit(FindComponent('Ed'+inttostr(m))).Text :='321';//第二条语句
    TEdit(FindComponent('Editt'+inttostr(m))).Perform(WM_UNDO,0,0);
 end;end;为什么第一条语句执行不了，第二条语句却可以执行呢，第一条语句，我放在别的程序能实现呢，好奇怪啊，头痛