For-Schleife und inc(x,1)

[Tommy1988]

Folgende Probleme:
Ich habe x so deklariert:

x : Integer = 1; Ganz oben bei

Delphi-Quellcode:

var Form1: TForm1;
x : Integer = 1;

Mit folgender Schleife zähle ich x von 1 bis 5 hoch:

Delphi-Quellcode:

for x := 1 to 5 do
 begin
  inc(x,1);
  Caption := IntToStr(x); // dient nur dazu, dass ich die zahl SEHEN kann
 end;

So..

Mit Canvas lass ich "malen". Von Punkt zu Punkt:

Delphi-Quellcode:

// Ein Case, von 1 bis 5 
  1: begin
      Image.Canvas.TextOut(20, 30, '1 '+IntToStr(x));
// Strich Nr. 1 erfolgt, Zahl 1 (x) wird daneben geschrieben                   <=
// Ergebnis:                                                                   <=
// 1 (1)                                                                       <=
      Image.Canvas.MoveTo(30, 30);
    end;
....
  3: begin
      Image.Canvas.TextOut(40, 40, '3 '+IntToStr(x));
// Ab hier geht x verloren. Es sollte angezeigt werden                         <=
// 3 (2)                                                                       <=
// Angezeigt wird lediglich "3"                                                <=
                                                                               
// WIESO?                                                                      <=
      Image.Canvas.MoveTo(50, 40);
    end;