[icWasya]

>код ужасен - править и править
например, вот это

Код:

X_Sp:=0;Y_Sp:=0;
case Num_splash of
  0: begin X_Sp:=0;Y_Sp:=0; end;
  1: begin X_Sp:=1;Y_Sp:=0; end;
... и ещё 58 строк

смело можно заменить на

Код:

X_Sp:=Num_splash mod 4;
Y_Sp:=Num_splash div 4;