datetimepicker chage 이벤트를 써서,

입력한날을 기준으로, 입력하는 날 이후는 입력 및 수정이 가능하나  

그전달들의 내용은 입력이 안돼게 하고 조회만 할수있는 프로그램을 짤려고 하는데 잘안돼네요..

제생각엔 현재날짜와 datetimepicker에서 선택한 날짜를 비교하여

하면 될거 같은데 별다른 아이디어가 생각이 안나네요.

고수님들 좀부탁드립니다.


procedure TfIH0010.datetimepickerChange(Sender: TObject);
var vdate: string;
var a : string;
begin

   jobymd.date := strtodate(fc_dm.sSystemDate);
             a   :=  datetimepicker.date
vdate := DateToStr(datetimepicker.date);
  with Query1 do begin
    Close;
    ParamByName('vDATE').AsDate :=datetimepicker.date;
    Open;

        if strtodate(a) > strtodate(vDATE) then begin
        showmessage('입력은 안되고 조회만 가능합니다.');
        exit;
    end
  end;