var s1,s2,s3,s4,s5,m1,m2,m3,m4,m5,h1,h2,h3,h4:integer;
begin
h1:=strtoint(edit1.text);
m1:=strtoint(edit2.text);
s1:=strtoint(edit3.text);
h2:=strtoint(edit4.text);
m2:=strtoint(edit5.text);
s2:=strtoint(edit6.text);
// Ich denke es bringt nicht viel hier die Zielfelder auszulesen...