Добавление Текста Из Richedit В Файл

Привет! пишу "на глазок" - сам подправь всякие делфи устанавливать лениво...
...
var
str : TstringList;
..
begin
str := TsrtingList.create;
...
if fileexist('his.txt') then str.loadfromfile('his.txt');
str.text := str.text + RichEdit.lines.text;
str.savetofile('his.txt');
...

можно, конечно, что-то придумать гениально - сложное...
а можно
* создать что угодно, что может содержать текст,
* записать текст из файла в это что угодно
* прибавить туда же твой новый кусок текста
* записать эту поэму обратно в файл
и всего делов-то