Сохранение при выходе

[Афанасий[vedma]]

Привет всем=)
Работаю над текстовым редактором. Код при выходе:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if MessageDlg('Документ не сохранен. Сохранить документ?', mtInformation, [mbYes, mbNo], 0) = mrYes then
    if SaveDialog1.Execute then
      richedit1.Lines.SaveToFile(SaveDialog1.FileName)
  else
    Close;
end;

Проблема: он должен так спрашивать, когда мой RichEdit1 имеет 1 или более символов, а он постоянно спрашивает при выходе, даже когда RichEdit1 пустой.
Сохранение по идее должно идти по такой схеме:
"Если RichEdit заполнен, то Спрашиваем, иначе просто Выход"

[Stilet]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if (trim(RichEdit.Lines.Text)<>'') and 
       (MessageDlg('Документ не сохранен. Сохранить документ?', mtInformation, [mbYes, mbNo], 0) = mrYes ) and 
       (SaveDialog1.Execute) then
      richedit1.Lines.SaveToFile(SaveDialog1.FileName)
end;

[astecenko]

Возможно нужно также проверять свойство RichEdit.Modified
Тогда будет:

if ((trim(RichEdit.Lines.Text)<>'') or (RichEdit.Modified)) and 
       (MessageDlg('Документ не сохранен. Сохранить документ?', mtInformation, [mbYes, mbNo], 0) = mrYes ) and 
       (SaveDialog1.Execute) then