for i:=0 to pressUnits.Count-1 do
   begin
    if(DGPressUnit(pressUnits[i]).selected) then
    begin
      binUnits.Add(pressUnits.Delete(i));
      Break;
    end;
   end;