memo поле,сохранение файла txt

[Анастасия19941994]

Как сделать в memo поле сохранение списка в файле txt ,но чтобы прошлые записи не удаляло!!вот что есть

a:=strtoint(edit3.text);
b:=strtoint(edit4.Text);
c:=a-b;
memo1.text:=floattostr(c);
memo1.Lines.Add(edit3.Text) ;
memo1.Lines.Add(edit4.Text);
memo1.Clear;
Memo1.Lines.Add('ñóõàÿ: '+Edit3.Text) ;
Memo1.Lines.Add('âëàæíàÿ:'+Edit4.Text) ;
Memo1.Lines.Add ('ðàçíèöà: ' +floattostr(c));
Memo1.Lines.Add ('òåìïåðàòóðà íà óëèöå: '+edit2.text);
Memo1.Lines.Add ('âðåìÿ: '+label7.caption);
Memo1.Lines.Add ('äàòà: '+label9.caption);
Memo1.Lines.SaveToFile('file.txt');

Memo1.SetFocus;

end;

[Armorer]

Через Memo1.Text получаем текст, добавить в файл можно стандарным способом работы с файлами Pascal.

Кажется, этот код лишний.

memo1.text:=floattostr(c);
memo1.Lines.Add(edit3.Text) ;
memo1.Lines.Add(edit4.Text);
memo1.Clear;
...