---

int X1, Y1, Z1, X2, Y2, Z2, C1, C2, C, A, B;

X1=CSpinEdit1->Value;
Y1=CSpinEdit2->Value;
Z1=CSpinEdit3->Value;

X2=CSpinEdit4->Value;
Y2=CSpinEdit5->Value;
Z2=CSpinEdit6->Value;

C1=X1*3600+Y1*60+Z1;
C2=X2*3600+Y2*60+Z2;

C=abs(C1-C2);

A=C/3600;
C=C%3600;

B=C/60;
C=C%60;

Label7->Caption=(String)A+"° "+(String)B+"' "+(String)C+"\"";