if start_ido>end_ido then
    begin
    AdoQuery1.Filter:='Bolt_nev= '+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido>= '+QuotedStr(start_ido)+' or Ido<= '+QuotedStr(end_ido)+')';
    AdoQuery1.Filtered:=true;
    end
  else
    begin
    AdoQuery1.Filter:='Bolt_nev= '+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido>= '+QuotedStr(start_ido)+' and Ido<= '+QuotedStr(end_ido)+')';
    AdoQuery1.Filtered:=true;
    end;