var
LabForm1: TLabForm1;
Path : String;
Running : Boolean;
Cash : TWArr;
X1, X2, Y1, Y2, X3, Y3, Fu1, Fu2, Fu3, Fu1Pris,
Fu2Pris, Fu3Pris, Bo1, Bo2, Bo3, Bo1Pris, Bo2Pris,
Bo3Pris, He1Pris, He2Pris, He3Pris, O1, O2, O3,
Oka, Okb, Okc, Ok1, Ok2, Ok3, Load1, Load2, Load3,
R1Dir, R2Dir, R3Dir, Ls1Pris, Ls2Pris, Ls3Pris,
Ro1, Ro2, Ro3, Ro1Pris, Ro2Pris, Ro3Pris, Mb1,
Mb2, Mb3, L1Dir, L2Dir, L3Dir: Byte;
Xa, Ya, Xb, Yb, Xc, Yc, Ls1, Ls2, Ls3, E1Pris, E2Pris,
E3Pris, Score1, Score2, Score3,