Procurar arquivo

Estou usando esse codigo;
procedure TForm1.Button6Click(Sender: TObject);
begin
try
log:=format(´seq¬d.txt´,[n]);
memo2.lines.LoadFromFile(log);
caption:=log;
except
inc(n);
end;

Procuro por arquivo (seq0...5).
Baseado nisso(procurar até 5x(ou mais) um arquivo com nome seq[n].txt)seq1,seq2 etc) até achar,qual o codigo mais curto?