Zeichnen

[delphi-projekt]

Mit dem Quelltext stimmt was nicht aber ich hab keine ahnung was.
Der tut einfach nicht in diesen vorgegebenen Zeiträumen makieren. Was muss ich dort ändern?

Delphi-Quellcode:

procedure TForm1.btgoClick(Sender: TObject);
var b : byte;
var Phase,Zeit: integer;
begin
case Phase of
1: begin {gerade}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData3.checked:=true;
  GetPortVal(port,@b,1);
  cbData5.checked:=true;
  GetPortVal(port,@b,1);
  cbData7.checked:=true;
  Phase:= Phase + 1;
  end;
2:begin{links}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData1.checked:=true;
  GetPortVal(port,@b,1);
  cbData3.checked:=true;
  GetPortVal(port,@b,1);
  cbData5.checked:=true;
   Phase:= Phase + 1;
  end;
3:begin{rechts}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData1.checked:=true;
  GetPortVal(port,@b,1);
  cbData3.checked:=true;
  GetPortVal(port,@b,1);
  cbData7.checked:=true;
   Phase:= Phase + 1;
  end;
4:begin {rückw.}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData1.checked:=true;
  GetPortVal(port,@b,1);
  cbData5.checked:=true;
  GetPortVal(port,@b,1);
  cbData7.checked:=true;
   Phase:= Phase + 1;
  end;
  end;


end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Zeit:= Zeit + 1;
case Zeit of
    1..5 : Phase:= 1;
    6    : Phase:= 2;
    7..11: Phase:= 3;
    12   : begin
             Phase:= 4;
             Zeit:= 0;
            end;
            end;
            btgoClick(Sender);
            end;

end.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]