[Alex7]

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

Код:

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

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