dm_display.ado_display.Filtered := False;
 dm_display.ado_display.Filter :='namepy>='''+E_PYM.Text+''''+' And  namepy<='''+PymstEnd+'''';
 dm_display.ado_display.Filtered := true;