Сохранение в RichEdit

[Claster]

Пробова так воще какаята ошибка выходит

procedure TForm1.BitBtn1Click(Sender: TObject);
var EditedText:string;
begin
RichEdit1.Lines.SaveToFile(EditedText);
if RichEdit1.Modified then RichEdit1.Modified:=false;
end;
end.