Duda con el StringGrid ¿?

[laker]

Lo que quiero hacer es un cuestionario didactico con pregunta y respuesta, en el que pueda ingresar 10 preguntas con su respectiva respuesta y de diferentes de temas es decir 2 cuestionarios de fisica, 3 cuestionarios de matematica y asi susecibamente n cuestionarios.

Cuando una persona quiere ver su conocimiento podra escoger cualquiera de esos cuestionarios

Por eso quiero guardar los esos *.txt con distintos nombres o con otras extension. Estaba probando hace rato con la instruccion seek que guarda el dato en *.dat, pero se queda almacenando constantemente y verifico el peso de *.dat y quede al ver que pesaba 346 Mb

Estoy tratando de ver donde es el error


procedure TForm3.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0] := ' PREGUNTA';
StringGrid1.Cells[1,0] := ' RESPUESTA';

//---------------------------------------
assignfile(archcont,'archivo.dat');
if fileexists('archivo.dat')then
reset(archcont)
else
rewrite(archcont);
//---------------------------------------

end;

procedure TForm3.Button3Click(Sender: TObject);
var
a:integer;
begin

seek(archcont,filesize(archcont));
truncate(archcont);
a:=1;
while StringGrid1.cells[0,a]<>'' do
begin
regcont.Preguntas := StringGrid1.Cells[0,a];
regcont.Respuestas := StringGrid1.Cells[1,a];
write(archcont,regcont);
inc(i);
end;
end;