var F: TextFile; begin try RichEdit1.Lines.SaveToFile('Log.txt'); AssignFile(F,'Log.txt'); Append(f); CloseFile(f); except //Button1Click(Sender); end; end;