Complemento para uma aplicação de brincadeira

O codigo abaixo grava contas de jogos, porem no final do processo de gravação, se eu tentar novamente ira acontecer um erro de IO/32
queria ajuda para saber o que posso fazer neste codigo para fazer parar de dar esse erro e poder gravar quantas contas quiser




procedure TForm3.btn1Click(Sender: TObject);
var
arq: TextFile;
begin

if ((Edit1.Text <> '''') and (Edit2.Text <> '''') and (Edit3.Text <> ''''))
then
begin

AssignFile(arq, ''d:\ContasJogos.txt'');
{$I-}
Reset(arq);
{$I+}
if (IOResult <> 0) then
Rewrite(arq)
else
begin
CloseFile(arq);
Append(arq);
end;



{Rewrite(arq);}
Writeln(arq, ''jogo...: '' +Edit1.Text);
Writeln(arq, ''Login..: '' +Edit2.Text);
Writeln(arq, ''Senha..: '' +Edit3.Text);
Writeln(arq, ''======='');

Edit1.Clear;
Edit2.Clear;
Edit3.Clear;

end;
Reset(arq);



end;

procedure TForm3.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, ''d:\ContasJogos.txt'' , nil, nil, SW_SHOWNORMAL);;
close;
end;