Zapisywanie elementów do plików

Witam! Mam taki oto problem. Posiadam Stringgrida 32x32 wypelnionego danymi w postaci 0 i 1 - wszystkie komorki sa wypelnione. Wszystkich elementow jest zatem 1024. Potrzebuję zapisać każdy pojedynczy element do osobnego pliku. Pliki będą postaci od 1.txt do 1024.txt. Jak do tej pory zrobiłem coś takiego:

procedure TForm1.Zapiszwyniki1Click(Sender: TObject);
var
plik2 : textfile;
i, j, k : integer;
kolejny : string;
begin
for k := 1 to 1024 do
begin
kolejny := IntToStr(k) + '.txt';
Assignfile(plik2, kolejny);
Rewrite(plik2);
with StringGrid1 do
for i := 1 to ColCount-1 do
for j := 1 to RowCount-1 do
Write(plik2, StringGrid1.Cells[i, j]);
Closefile(plik2);
end;
end;

Ale jak sami widzicie, rzeczywiście powstanie 1024 plików .txt, tyle, że każdy bedzie zawierał wszystkie elementy stringgrida. Nie potrafię sobie poradzić z tym, aby element 2 zapisał sie sam jedyny do pliku 2.txt, itd. Proszę o pomoc!

chyba tak powinno byc:

procedure TForm1.Zapiszwyniki1Click(Sender: TObject);
var
  plik2 : textfile;
  i, j, k : integer;
  kolejny : string;
begin
   for i := 0 to StringGrid1.ColCount do
        for j := 0 to StringGrid1.RowCount do
  begin
    kolejny := IntToStr(i*32+j+1) + '.txt';
    Assignfile(plik2, kolejny);
    Rewrite(plik2);
    Write(plik2, StringGrid1.Cells[i, j]);
    Closefile(plik2);
  end;
end;