как загрузить из файла в 4 Stringgrid'а

[Yur@]

Всем привет!
Есть файл 1.txt. В файле содержиться 160 цифровых значений.

123456789100000560000123456789101234567891012345678910000000000000000000000000000000123456789100000000000000000000000000000001234567891000000600001234567891012345678910
-----------|------------|------------|-----------|
1 столбец     2 столбец     3 столбец    4столбец |2 стринггрид так же

Необходимо распихать эти значения в 4 стринггрида(размер 10 Х 4).Т.е
1 0 1 1
2 0 2 2
3 0 3 3
4 0 4 4
5 5 5 5
6 6 6 6
7 0 7 7
8 0 8 8
9 0 9 9
10 0 10 10

Огромное спасибо за советы!

[evg_m]

Необходимо распихать эти значения в 4 стринггрида(размер 10 Х 4).Т.е

for n:=1 to 4 do
  for j:=1 to 10
   for k:=1 to 4 do
   begin
      myval:=copy(mystr, ..,  ); //здесь надо получить то что должно быть записано 
      mygrids[n-1].cells[j-1,k-1]:=myval; //и теперь записать

что такое mygrids и mystr думаю ясно.
P.S. нумерация обычно идет с нуля поэтому k-1