как минимум делать Enable:=FALSE в теле условия TRM_GetReal.Complete