[Tokariy]

а вот и для второй)))

Код:

  if  RadioGroup1.ItemIndex=1 then
   begin
     Datamodule4.Query4.Filter:='(Data_okon<>null)';
     Datamodule4.Query4.Filtered:=true;
     Form18.QuickRep1.Preview;
   end;

Спасибо всем кто помогал и навёл на верный ход мыслей