delphi DBGrid DataSource

procedure TFrmDpMthPrice.BitBtn1Click(Sender: TObject);
begin
 IF CobDate.Text='' then
    begin
    showmessage('');
    abort;
    end
 else
  begin
    if  RadioGroup1.ItemIndex=0 then      
    begin                                 
     wwDBGrid1.DataSource:=wwDateSource1;      if radioLine.ItemIndex=0  then
       begin
        Qrysearch.Close;
        Qrysearch.Params[0].Value:= CobFaID.Text;
        Qrysearch.Params[1].Value:= CobBFatype.Text;
        Qrysearch.Params[2].Value:= CobEFatype.Text;
        Qrysearch.Params[3].Value:= CobDate.Text;
        Qrysearch.Params[4].Value:= CobUsDepart.Text;
        Qrysearch.Params[5].Value:= '';
        Qrysearch.Params[6].Value:=RadioGroup1.ItemIndex ;
        Qrysearch.Open;
       end
       else
       begin
        Qrysearch.Close;
        Qrysearch.Params[0].Value:= CobFaID.Text;
        Qrysearch.Params[1].Value:= CobBFatype.Text;
        Qrysearch.Params[2].Value:= CobEFatype.Text;
        Qrysearch.Params[3].Value:= CobDate.Text;
        Qrysearch.Params[4].Value:= CobUsDepart.Text;
        Qrysearch.Params[5].Value:= inttostr(radioLine.ItemIndex);
        Qrysearch.Params[6].Value:=RadioGroup1.ItemIndex ;
        Qrysearch.Open;
       end
    end
    else if   RadioGroup1.ItemIndex=1 then
    begin
      wwDBGrid1.DataSource:=wwDateSource2;     with wwQuery1 do
       begin
        close;
        ParamByName('FaId').Value:=CobFaID.Text;
        ParamByName('BFATpyeID').Value:=CobBFatype.Text;
        ParamByName('EFATpyeID').Value:=CobEFatype.Text;
        ParamByName('SDpstartdate').Value:=CobDate.Text;
        ParamByName('UserDepartID').Value:=CobUsDepart.Text;
        ParamByName('Line').Value:=inttostr(radioLine.ItemIndex);
        ParamByName('istw').AsInteger:=RadioGroup1.ItemIndex;
        Open;
       end;
     end;
   end;
end;
紅字部份  放這的錯誤是 undeclared identifier:'wwDateSource1' 
                       undeclared identifier:'wwDateSource2'