//Modified判断Tedit TMemo类型的文件是否修改过 

procedureTForm1.Button1Click(Sender: TObject);

begin

  if edit1.Modifiedthen ShowMessage('edit1 Modified') else ShowMessage('edit1 没有修改');

  if Memo1.Modifiedthen ShowMessage('Memo1 Modified') else ShowMessage('Memo1 没有修改');

end;