Jak najprościej dodać do daty np.
data:= '03-01-20'
6 miesięcy i 1 dzień ?
0
0
Jeśli to jest string, to może spróbuj go pociąć za pomocą Copy
var
x: String;
y: Integer;
y:=strtoint( Copy(String_z_datą,1,ilość_miejsc_które_mają_pozostać))
...i tak parę razy i kilka prostych działań zmieniających np rok po przekroczeniu 12 mies.
Popróbuj sobie...
0
Zamien na format TDateTime i dodaj operatorem '+' :)