procedure TSc_menu.Button1Click(Sender: TObject);
begin
  try
  repeat
    Screen.Cursor := CrHourGlass;
    Sc_vw_gebruikers := TSc_vw_gebruikers.Create(Application);
    Screen.Cursor := CrDefault;
    Sc_vw_gebruikers.Start_Unit('M'); { Lookup table is opened here }
    Sc_vw_gebruikers.Free;
    Dmvb.DBLogistic.CloseDataSets;  { Lookup table is closed here }
  until 1 = 2;
  except
    raise;
  end;
end;