[noob]

Quiero almacenar productos en un archivo de texto pero claro si uso rewrite siempre se me borrará la información almacenada y si uso apped la primera vez me daría error porque no hay un archivo creado, me gustaría saber si puedo hacer algo así:

if <el archivo está creado> then
  append(archivo)
else
  rewrite(archivo);

Mi actual código:

Código Delphi [-]
procedure TForm4.Button1Click(Sender: TObject);
var
  Archivo: TextFile;
begin
  System.Assign(Archivo,'productos.txt');
  System.Rewrite(Archivo);
  System.Write(Archivo,Edit1.text);
  System.Write(Archivo,Edit2.text);
  System.Write(Archivo,Edit3.text);
  System.Write(Archivo,Edit4.text);
  System.Write(Archivo,Edit5.text);
  System.Close(archivo);
  MessageBox( 0, 'Producto registrado', 'Información', 0 );
end;

Saludos.