RichEdit.Modified

[Fisherman86]

На Delphi7 написал блокнот с теми функциями, которые нужны именно мне.
Но возникла такая проблема! Для сохранения настроек использую INI.
В FormCreate читаю настройки:
//-------------------- Загрузка настроек в RichEdit ------------------//
Re1.Font.Name:=Fn;
Re1.Font.Color:=Fc;
Re1.Font.Size:=Fs;
Re1.Font.Style:=TFontStyles(Fst);
Re1.Color:=bc;
И всё бы хорошо но при закрытии формы получается так, что я еще ничего не изменил, а RighEdit уже модифицирован.
Код для закрытия формы:
procedure TForm1.Close(Sender: TObject; var CanClose: Boolean);
var
ms:integer;
begin
if not Re1.Modified then Exit;
ms:=MessageDlg('Текст был изменен. Хотите сохранить изменения?',
mtConfirmation,[mbYes,mbNo,mbCancel],0);
case ms of
idYes:begin
SD1.Execute ;
Re1.Lines.SaveToFile(SD1.FileName);
end;
idNo: {Nothing};
idCancel: Abort;
end;

end;

Тоесть я только открыл прогу и сразу-же ее закрывая получаю сообщение отом, что Текст был изменен!
Вопрос КАК СДЕЛАТЬ ТАК ЧТО-БЫ МОИ НАСТРОЙКИ СТАЛИ "ПО УМОЛЧАНИЮ"

[Пепел Феникса]

а вы измените текст и увидите чудо.

not не нужно в условии.
так свойство возвращает true если текст изменен, а не наоборот.

[Fisherman86]

Код 100% рабочий Вся проблема в:

Re1.Font.Name:=Fn;
Re1.Font.Color:=Fc;
Re1.Font.Size:=Fs;
Re1.Font.Style:=TFontStyles(Fst);
Re1.Color:=bc;

Если -это закоментировать то все работает!

[Hacker19_90]

делайте так

Re1.Font.Name:=Fn;
Re1.Font.Color:=Fc;
Re1.Font.Size:=Fs;
Re1.Font.Style:=TFontStyles(Fst);
Re1.Color:=bc;
Re1.Modified := false;

Потом

if not(Re1.Modified) then Exit;
ms:=MessageDlg('Текст был изменен. Хотите сохранить изменения?',
mtConfirmation,[mbYes,mbNo,mbCancel],0);
case ms of
idYes:begin
SD1.Execute ;
Re1.Lines.SaveToFile(SD1.FileName);
Re1.Modified := false;
end;
idNo: {Nothing};
idCancel: Abort;
end;

Пробуйте

[Пепел Феникса]

ну да ошибся я...прошу прощения, только с работы пришел...

[Fisherman86]

Благодарю!!!!
Было достаточно добавить:
Re1.Modified := false;