wie sieht denn der rest aus?
Zitat:
var
dateproof, datenumber: Integer;
...
for dateproof := datenumber downto 0 do
vielleicht hilft dir das
Delphi-Quellcode:
var dateproof, datenumber: Integer; //global
[..]
var i: integer; //alles lokal
begin
for i := datenumber downto 0 do
[..]