Delphi-Tags sind auch was Cooles.
Und lies die mal den Thread durch, wo erklärrt wird, wie man eine Frage stellt.
Vorallen die berschrift und die Fehlerbeschreibung lassen sehr zu wünschen übrig.
Und nun zum Problem:
Geh mal im Kopf das Folgende durch.
Fange mit A=0 an (und z.B. auch mal mit A=2) und gehe den Code duch ... du wirst sehn was da falasch läuft.
Delphi-Quellcode:
// alles Unwichtige aus dem Code entfernt
if A = 0 then
begin
A:=A+1;
end;
if A = 1 then
begin
A:=A+1;
end;
if A = 2 then
begin
A:=A+1;
end;
if A = 3 then
begin
A:=A-3;
end;
Die Nutzung des Debuggers und das CASE oder alternativ zum CASE das ELSE helfen schon sehr viel, oder man verschiebt das Setzen der Variable A hinter alle IFs.
Vorallem der Debugger hilft bei der Aufgabe, welche ich dir oben gestellt hab.