Digitaltechnik: Wahrheitstabelle generieren

[mr-unbekannt]

momentan schaffe ich es, die erste reihe abwechselnd mit 1 und 0 zu füllen,
ich bringe es auch zusammen, dass es mir die nächsten spalten auffült, jedoch in falscher reihenfolge..

der Code:

Delphi-Quellcode:

procedure TForm1.SpinEdit1Change(Sender: TObject);
var 
  i,j: Integer;
  p: Real;
begin
p:= 1;
for j := 1 to SpinEdit1.Value do p := p*2;
  with sg1 do
  begin 
    ColCount := SpinEdit1.Value;
    RowCount := trunc(p) + FixedRows;

    for i := 1 to trunc(p) do
      Cells[SpinEdit1.Value-1, i] := IntToStr(1 - i mod 2);
    for i := 1 to trunc(p) do
      Cells[SpinEdit1.Value-2, i] := IntToStr(1 - i div 2 mod 2);
    for i := 1 to trunc(p) do
      Cells[SpinEdit1.Value-3, i] := IntToStr(1 - i div 4 mod 2);


end;

end;

sreenshot von falsch angeordneten zahlen dabei