//sets search parameter for server types procedure TForm1.SetServerTypes; begin with ServerBrowser do begin Servertype := []; if cDA10.checked then Servertype := Servertype + [svr_DA10]; if cDA20.checked then Servertype := Servertype + [svr_DA20]; if cDA30.checked then Servertype := Servertype + [svr_DA30]; if cAE10.checked then Servertype := Servertype + [svr_AE10]; if cBA10.checked then Servertype := Servertype + [svr_BA10]; if cBA20.checked then Servertype := Servertype + [svr_BA20]; if cDX10.checked then Servertype := Servertype + [svr_DX10]; if cHDA10.checked then Servertype := Servertype + [svr_HDA10]; end; end;