[Neftali [Germán.Estévez]]

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

  // Extraer los valores de día, mes, año..
  DecodeDate(DateTimePicker1.DateTime, a, m, d);
  // rellenar las celdas
  for C := 1 to 5 do begin
    StringGrid1.Cells [1, C ] := DateToStr(EncodeDate(a, C, d));
  end