Dank euch erst mal
aber hilft mir alles nix
i wird nicht verändert!
der Fehler tritt bei mir immer auf egal was ich in der Schleife mache
z.B. auch bei dieser hier:
Code:
x := 0;
for i := 1 to paintbox1.width do begin
inc(x);
end;
ShowMessage(x);
BUHU
Ich hab das bei mir daheim und auch im Geschäft getestet (jeweils Delphi6 Enterprise)