Подскажите как лучше сделать такой TEdit чтобы при вводе в него данных с помощью клавы и вставки из буфера OnChange выполнялся, а при присваивании Text := 'test'; не выполнялся?

Чем изобретать велосипед, не проще ли изменить логику обработки события OnChange ? Ведь ничто не мешает в обработчике проверить это условие ..

Так и сделал

Странное желание, обычно это разные люди. Вводят текст и вставляют из буфера пользователи, а приравнивают программисты. В принципе защиты нет.