No pongas lo mismo en tantos hilos.
En la ayuda tienes DecodeDate y EncodeDate, molestate en buscarlo y aprenderás mucho más.
Algo como esto puede servirte.
procedure TForm1.Button1Click(Sender: TObject);
Var
Anio, Mes, Dia: Word;
begin
DecodeDate(Date,Anio,Mes,Dia);
Mes := Mes + StrToInt(Edit1.Text);
If (Mes > 12) and (Mes < 25)then
begin
Mes := Mes - 12;
Anio := Anio + 1;
end;
If (Mes > 24) and (Mes < 37)then
begin
Mes := Mes - 24;
Anio := Anio + 2;
end;
If Mes > 36 then
begin
ShowMessage('No damos prestamos tan largos');
Exit;
end;
DateTimePicker1.Date := EncodeDate(Anio,Mes,Dia);
end;
Adaptatelo a tus necesidades.
