Das ist so etwas schwierig zu durchschauen.
- An welcher Stelle wird das THI erstmalig 12? Müsste man mit dem Debugger ja leicht rauskriegen können.
- Pack den Code mal in Delphi-Tags (der Button mit dem Helm) statt Code-Tags
- Wirf alles raus, was nicht zur Reproduktion des Fehlers nötig ist.
wenn ich diesen ausklammer, funktioniert alles wieder
Delphi-Quellcode:
if ( FileExists( tempS ) ) then
begin
byte := GetFileSize( tempS );
tempS1 := konvertBytes( byte );
delay(100);
end;