unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, RzEdit, RzSpnEdt; type TForm1 = class(TForm) Edit1: TEdit; RzSpinEdit1: TRzSpinEdit; procedure FormCreate(Sender: TObject);…