procedure ClearSelection;
procedure dialog_OnShow(Sender: Integer); begin netDBEdit1.ClearSelection; end;