procedure TForm1.FormDestroy(Sender: TObject);
begin try
reg1.free;
except end;End;