//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;