procedure Torder_form.date2Click(Sender: TObject);
var d3: TDateTime;
begin
    d3:=date2.date - date1.date;
    showmessage(datetostr(d3));
end.`