if MyForm1.ShowModal = mrOk then begin //Проверяем, введены ли новые значения и по необходимости Сохраняем end;