var
r10,r11: Integer ;

begin
r10:= StrToInt(Edit1.Text);
r11:=StrToInt(edit2.Text);
label1.Caption := IntToStr(r10 - r11 );

gibi mantık bu iki tarih arasındaki farkı alacaksın geliştirmek sana kalmış