her er lidt kode
e := strtotime(edit1.text);
f := strtotime(label1.caption);
h := f -e;
e er din editbox
f er din din label
alle variabler er tdatetime
her er så converteringen til sek
i := strtoint(copy(timetostr(h),1,2));
i := i + (strtoint((copy(timetostr(h),4,2)))* 60);
i := i + (strtoint((copy(timetostr(h),4,2)))* 3600);
i er en integer
vil du have mere hjælp må du bonge op med lidt flere ups