Заставили переписывать старые исходники, а там такое
Unitl.pas
while not Eof do begin
case FicldByNamc('rsc_scat_id').Aslntcgcr of for i :■ 1 to 38 do begin
case i of
Is a :« 6;,говнокод,быдлокод,песочница