[Konrad]

Скажу одно: жесть прога.

Код:

state:array[1..100, 1..100] of string;

- зачем? когда массив 4х4? Зачем текстовые строки?

Код:

s:=copy(str1, 1, 1);

А это к чему?

Код:

block:='';
      for a:=1 to 4 do
        for b:=1 to 4 do
          block:=block+state[a,b];
      memo1.Lines.Add(block);

А если символы будут непечатные?