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