Del TDateTimePiclket puedes extraer los valores de día, mes y año (por pasos para que quede más claro):
Código Delphi
[-]var
m, d, a: Word;
C:integer;
begin
DecodeDate(DateTimePicker1.DateTime, a, m, d);
for C := 1 to 5 do begin
StringGrid1.Cells [1, C ] := DateToStr(EncodeDate(a, C, d));
end