unit DatePicker
..................
..................
{ Public declarations }
destructor Destroy; virtual
................
................
destructor TPicker.Destroy;
begin
fFormat := ';
fControl.Free;
inherited;
end;