Сохранение в файл в Delphi

[malicious_devil]

Помогите исправить программу. Как сделать чтобы сохраняло вопросы и ответы по порядку и чтобы когда новый вопрос пишешь предыдущий не удалялся

procedure TForm1.Button1Click(Sender: TObject); //сохранить
var
fi:TextFile;
i:integer;
begin
try
if (Trim(Edit1.Text)='') or (CheckListBox1.Count=0) then
begin
exit;
end;
inc(count);
Test.count_v:=3;
Test.count_otv:=CheckListBox1.Items .Count;
for i:=0 to CheckListBox1.Count-1 do
begin
Test.Name_v:=Edit1.Text;
if CheckListBox1.Checked[i] then
Test.pr_ot:=IntToStr(i)
else
Test.pr_ot:='';
Test.otv:=CheckListBox1.Items[i];
Write(F,Test);
end;
if count=Test.count_v then
begin
ShowMessage('Test create compleate');
CloseFile(F);
count:=0;
end;
CheckListBox1.Clear;
Edit1.Clear;
except
on e:Exception do
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
try
count:=0;
cc:=0;
AssignFile(F,'Voprosy1.db');
Rewrite(F);
except
on e:Exception do
end;
end;