[Alex7]

Здравствуйте, хочу сделать чтобы выполнялась определённая процедура при изменении значения Edit.Text, но только в том случае если значение отличается от бывшего там ранее текста, пробую так:

Код:

1 2 3 4 5 6

procedure TForm1.Edit1Change(Sender: TObject); begin   ip1 := Edit1.Text;   if (ip2 <> ip1) and (Edit1.Text <> ' ') then MyProcedure;   ip2 := ip1; end;

Не получается, MyProcedure выполняется при каждом обновлении Edit1.Text даже если его значение обновилось на тоже, что и было ранее. Помогите пожалуйста.