Digitaltechnik: Wahrheitstabelle generieren

[mr-unbekannt]

hallo, vielleicht sind ja ein paar hier an digitaltechnik interressiert...

ich habe ein kleines Problem... ich möchte eine Wahrheitstabelle generieren
diese soll den kompletten eingangsbereich mit bits ausfüllen
ich schaffe es nicht, bei E0 abwechselnd 0 und 1 einzufüllen..
könte mir bitte jemand helfen?

vielen dank

Delphi-Quellcode:

procedure TForm1.SpinEdit1Change(Sender: TObject);
var i:Integer;
begin
sg1.ColCount := SpinEdit1.Value;
sg1.RowCount :=Sqr(SpinEdit1.Value)+1;
for i := 1 to Sqr(SpinEdit1.Value) do begin
sg1.Cells[SpinEdit1.Value-1, i]:= '0';
end;


end;