Applies toTForm4
Declarationprocedure Edit1Change(Sender: TObject);Implementation
procedure TForm4.Edit1Change(Sender: TObject); begin if FUpdating then Exit; CurrText.Size := StrToInt(Edit1.Text); End;