]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ var
time1,time2,time3:TDatetime;
h,m,s:integer;
begin
time3:=time1-time2;
decodetime(time3,h,m,s);
result:=h*3600+m*60+s;
end;