procedure TFormRedDetKarta.FormShow(Sender: TObject);
var i: integer;
begin
PloEdit.Text := StringReplace(PloEdit.Text, '.', ',', [rfReplaceAll, rfIgnoreCase]);//замена точки на запятую
Screen.Cursor := crHourGlass;
with ADOQuery1 do begin
    SQL.Clear;
    SQL.Add('SELECT ods FROM [\\SERVER-BUH\Dbf\dbf\n112.dbf] where n112.mr like ''%  4%'' ORDER BY ods');
    try Open;
    except
      on E:Exception do begin
        ShowMessage(E.Message);
        Exit;
      end;
    end;
  end;

  ParamComboBox1.Properties.Items.Clear;
  with DataSource1.DataSet do begin
    if not Eof then begin
      ParamComboBox1.Properties.Items.BeginUpdate;
      for i:=0 to RecordCount-1 do begin
        ParamComboBox1.Properties.Items.Add(FieldByName('ods').AsString);
        Next;
      end;
      Close;
      ParamComboBox1.Properties.Items.EndUpdate;
      if ParamComboBox1.Properties.Items.Count>0 then ParamComboBox1.ItemIndex:=-1;
    end;
  end;
  Screen.Cursor := crDefault;
end;