Delphi 7, мне нужно вывести матрицу через цикл for, помогите...

( 1_1_1_1_0_0_0 )
( 1_1_0_0_1_1_0 )
( 1_0_1_0_1_0_1 )
В общем, я как то пытался выкрутиться из данной ситуации, и вот что у меня получилось... .

for i:=1 to 4 do
begin
h:=4;
for e:=h downto 1 do
begin

for j:=e downto 1 do
begin
Label7.Caption:=Label7.Caption+'1 ';
end;

for j:=e-1 downto 1 do
begin
Label7.Caption:=Label7.Caption+'0 ';
end;

end;
Label7.Caption:=Label7.Caption+#10#13;
-------------------------------------------------------------------------
Но мой код работает только для вывода первой строки (((
А теперь я мало того что запутался, так ещё и идей нету ((((