Una fácil de archivos

[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:

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.

[Caro]

Hola noob, para ver si un archivo esta creado puedes utilizar la función FileExists.


if FileExists('Archivo.txt') then
showmessage('El archivo existe');


Saluditos

[noob]

Muchas gracias!