Autonumerico con ficheros

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); // Creando archivos con nombre secuencial...
var Count: Cardinal;
begin
 Count := 0;
 while GetFileAttributes(PChar(IntToStr(Count)+'.txt')) <> INVALID_HANDLE_VALUE do
  Inc(Count);
// IntToStr(Count)+'.txt';
end;

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); // 'Append' con valores numéricos secuenciales en un archivo de texto.
var Archivo: TextFile; Line: string;
begin
 AssignFile(Archivo, 'texto.txt');
 Reset(Archivo);
 while not EOF(Archivo) do ReadLn(Archivo, Line);
 WriteLn(Archivo, IntToStr(StrToInt(Line) + 1));
 CloseFile(Archivo);
end;