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;