Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

DECODEDATE - SEPARAR DIA/MÊS/ANO

procedure TForm1.BitBtn1Click(Sender: TObject);
var data: Tdate;
     ano, mes, dia: Word;
     L:TStringList;
begin
  data:=date;
  L := TStringList.Create();
  Decodedate(data,ano , mes, dia);
  L.Add('Data Atual: '+datetostr(data));
  L.Add('Ano: '+inttostr(ano));
  L.Add('Mês: '+inttostr(mes));
  L.Add('Dia: '+inttostr(dia));
  ShowMessage(L.Text);
end;