var MyVar, OldVal: <тип>; ... if MyVar <> OldValue then begin OldValue:=MyVar; //Переменная изменилась end else //Переменная не изменилась