[Eze32]

Hola tengo que crear archivos binarios, pero tengo que crear si el archivo no existe y solamente genere uno por día, y otro que sea único. Mi duda es que métodos se pueden usar que verifique que el archivo existe y que no fue creado el mismo día así no se vuelve a crear, y como también crear un único archivo sin que se vuelva a crear.
El codigo que hice fes:

Código Delphi [-]

Procedure TArch.NuevoArchivoDiario(const Valor: string);
var
  Binario : TFileStream;
  Fecha : TDateTime;
begin
  Binario := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'TextoPorDia.txt',fmCreate);
  Fecha := Now();
  texto := DateTimeToStr(Fecha) + Valor;
  Binario.Write(texto[1],length(texto));
  Binario.Free;
end;

Procedure  TArch.UnicoArchivo(const Valor: string);
var
  Binario : TFileStream;
  Fecha : TDateTime;
begin
  Binario := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Textounico.txt',fmCreate);
  Fecha := Now();
  texto2 := DateTimeToStr(Fecha) + Valor;
  Binario.Write(texto2[1],length(texto2));
  Binario.Free;
end;

Bueno ese es el codigo que hice para cada uno de los archivos pero mi duda que se haga un archivo por día y otro único.

Muchas Gracias de Antemano.