procedure editkeypress(sender:tobject;var key:char);procedure editchange(sender:tobject);procedure editkeyup(sender:tobject;var key:word;shift:tshiftstate);初始化edit procedure tform1.formcreate(sender:tobject);var i:integer;begin for i:=0 to componentcount-1 do if components[i]... 20210311