Как по нажатию кнопки загрузить данные в memo?

[Алексей_2012]

Здравтвуйте, есть два текстовых файла, вопросы и ответы. Сначала загрузил в МЕМО файл "вопросы"

procedure TForm1.mmo1Change(Sender: TObject);
begin
mmo1.lines.loadfromfile('e:\программы на делфи\vopr.txt')
end;

Дальше создал кнопку Button и по OnClick должно в МЕМО загрузиться содержимое файла "ответы", но этого не происходит и остается содержимое файла "вопросы", подскажите в чем проблема

procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Lines.LoadFromFile('e:\программы на делфи\otv.txt');
end;

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

[Человек_Борща]

procedure TForm1.mmo1Change(Sender: TObject);
begin
mmo1.lines.loadfromfile('e:\программы на делфи\vopr.txt')
end;

Событие происходит всякий раз при изменении поля ввода.

Когда срабатывает этот код:

procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Lines.LoadFromFile('e:\программы на делфи\otv.txt');
end;

То за ним срабатывает:

procedure TForm1.mmo1Change(Sender: TObject);
begin
mmo1.lines.loadfromfile('e:\программы на делфи\vopr.txt')
end;

[Алексей_2012]

Спасибо, а как это исправить?

[Человек_Борща]

Загружайте вопросы/ответы по другой кнопке.

[Алексей_2012]

извиняюсь за глупй вопрос, какая кнопка подойдет? Пробовал использовать bitbtn тот же результат

[Человек_Борща]

Ну так уборите OnChange обработчик Memo

[Алексей_2012]

Спасибо, я все сделал)