memo1.Clear; for i:=1 to 10 do begin st:=''; for j:=1 to 10 do begin st:=st+inttostr(arr[i,j])+' | '; end; memo1.Lines.Add(st); end;