Sender's?? With: All edit share a??? ^? V format

1. All edit is only allowed? S?? In the end, Zheng is only allowed to do so. into one small iteration C
2. Don't want to? χ??? Edit all?? OnKeyPress Events

So you just.? One??, all the other points in object Inspector? ：
Procedure tform1.edit1keypress (Sender:tobject; var key:char);
Var
Intcompidx:integer;
sttext:string;
Begin
if (Ord (Key) = +) Then
Begin
Intcompidx: = (Sender as Tedit). Componentindex;
Sttext: = Tedit (Components[intcompidx]). Text;
If Pos ('. ', Sttext) > 1 Then
Key: = #0;
End
End

If not? X is what y see?? You don't have to do that. Amount
if (Ord (Key) = +) and
(Pos ('. '), Tedit (components[(Sender as Tedit). Componentindex]). Text) > 1) Then
Key: = #0;