Title: Get difference between of 2 dates
You can use operation of a difference between dates. The answer is a count of days between them.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label3.Caption:=FloatToStr(
StrToDate(Edit1.Text)-StrToDate(Edit2.Text))+
' days between of this dates';
end;