Как узнать изменен ли текст в RichEdit?

[unicode]

Здравствуйте, как можно узнать изменен ли текст в RichEdit?
пробовал вот так : RichEdit.Modified, но это не оно.
Заранее спасибо.

[quit]

А чем не устраивает событие OnChange?

[Lime]

procedure TForm1.Edit1Change(Sender: TObject);
begin
if trim(edit1.Text) <> 'Изначальный текст' then {твои действия};
end;

С отсеиванием пробелов .... можно и без них , уберёш trim()
С ричэдитом просто в событии OnChange;

[unicode]

Дело в том, что это нужно сделать в процедуре обработки нажатия на кнопку меню ...
Вот весь текст процедуры:

  if RichEdit.Modified then
    begin
      case Application.MessageBox('Çàìåíèòü ñóùåñòâóþùèé ôàéë?', 'Ïîäòâåðæäåíèå çàìåíû ôàéëà', MB_ICONWARNING + MB_YESNOCANCEL) of
        IDYES: RichEdit.Lines.SaveToFile(OpenDialog.FileName);
        IDNO:
          begin
            if SaveDialog.Execute then RichEdit.Lines.SaveToFile(SaveDialog.FileName);
          end;
      end; //case
    end //begin
  else
    begin
      case Application.MessageBox('Ôàéë íå áûë èçìåíåí. Âñå ðàâíî ñîõðàíèòü?', 'Ôàéë íå áûë èçìåíåí', MB_ICONQUESTION + MB_YESNO) of
        IDYES: RichEdit.Lines.SaveToFile(OpenDialog.FileName);
        IDNO:
          begin
            if SaveDialog.Execute then RichEdit.Lines.SaveToFile(SaveDialog.FileName);
          end; //begin
      end; //case
    end; //begin

[QunneD]

procedure TestProcedure(RichEdit : TRichEdit);
var
  value : integer;
begin
  if (RichEdit.Modified) then
  begin
    value := MessageBox(0, 'Текст был изменен, сохранить?', 'Предупреждение', mb_IconWarning+mb_yesno);
    case value of
    6:
    begin
      ShowMessage('Текст сохранен');
    end;
    7:
    begin
      ShowMessage('Сохранение текста отменено');
    end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   TestProcedure(RichEdit1);
end;

[quit]

Что то я не вижу особой разницы...
Работать должно и в том и в другом случае...

[Stilet]

Предлагаю так:
Фиксация изменений:

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
RichEdit1.Tag:=Byte(RichEdit1.Modified);
end;

Работа при нажатии на кнопку если были изменения, и возвращение в исходное состояние

procedure TForm1.Button1Click(Sender: TObject);
begin
 if boolean(RichEdit1.Tag) then caption:='Был изменен' else
  caption:='неа';
  RichEdit1.Tag:=0;
end;

[unicode]

Я додумался как зделать эту проверку.
Я ввел переменную RichEditChange типа Boolean, теперь каждый раз при смене текста в RichEdit он получает значение True, а если текст не изменен то False.
Спасибо всем кто здесь отписался