[tcp_ip_es]

var
  Form1: TForm1;
  Dia,Mes,Ano:word;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(DateTimePicker.DateTime,Ano,Mes,dia);
Edit1.name := inttostr(Ano);
Edit2.name := inttostr(Mes);
Edit3.name := inttostr(Dia);
end;