Viendo que eres principiante, al menos en los Foros, amplío un poco más lo que te dice David.
Código Delphi
[-]
Var
dMiFecha:TDate;
begin
TDateTimePicker.Date:= Date + 30;
dMiFecha:=TDateTimePicker.Date;
ShowMessage(DateToStr(dMiFecha));
end;
Un Saludo.